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i! was So. 


“But 


THE A 


Pix Fix is a program designed as an artists aid in 
creating computer art work. This program resembles 
MacDraw (for a lesser computer-ed.) to some degree. 
Pix Fix gives you the ability to zoom in on small 
sections of the screen and set or reset (Plot and 
Unplot) the individual bits in the screen display as 
you desire. 


= 
The screen is manipulated in both the screen display 
area and in high memory (50000d). A screen may be 
loaded into high memory to be modified. Subsequent 
screen saves may be loaded into other programs by 

LOAD "name"CODE 16384. 


Enter the program listings or send $13.00 to John at 
the above address. He will send Pix Fix, A.R.T. 
(another utility) and four comic character displays, 
two of which are shown in the accompanying figures. 
(The artwork was done by the talented Vu Nguyen.) | 


Using Pix Fix 

After loading a picture, you will be in the Big Pix 
mode, Part of the picture will be displayed in the 
upper left hand corner of the screen, Its enlarged 
version will fill the screen. By using <Caps Shift> 
and I, J, K and L (up, left, down and right, 
respectively); you may scroll the enlarged screen to 
various parts of your overall creation, I, J, K and 
L used without the <Caps Shift> will move the cursor 
around on the screen itself. These cursor control 
keys will henceforth be referred to as <Arrow> 
keys. 


To view the entire picture, press <U>. Included in 
the picture is a small box which is used to enclose 
the area of the picture that you want to fix. Now 
use the arrow keys to move the box around. By 
holding down the <Caps Shift> and using the arrow 
keys, the box will move faster. 


Pressing <O> will invert the video. <Y> will display 
the attributes associated with the picture in view. 
<P> will dump the picture to the 2040 printer. 


Press <U> to enter Big Pix mode again. To see the 
row and column number, press <P>, Press <P> again to 
turn it off. 


To enter the Draw mode, press <A>, The border of the 
screen will now be black. As you move the cursor, 

you will draw your art. To erase, press <S>. The 
border will now be Cyan. Again, move the cursor to 
erase, Press <D> to resume normal cursor movement. 
You may also press <O> to invert the screen in this 
mode. 


MAZING 2068 PIX FIX 


John T. Nguyen 
| 


If you can't remember all of the commands, press <H> 
for the help file. Press any key to go through the 
help file. Press <M> to go to the Main Menu. From 
this point you may Save or Load your display. There 
are several options here too. 


"You can Save your picture as a SCREEN$ or from 


memory location 50000. If you save a Screen$, then 
all of the attributes will be saved with your 

picture, If you save from high memory, then you have 
the option of saving 1/3, 2/3 or all of the picture. 
This will save loading time as you develop new 
drawings. 


To clear your display and start fresh, press <X>. 
you will be prompted to verify your entry. Press 
enter to resume your work. To exit the program, 
press <Q>. DO NOT RUN the program! Use GO TO 1 to 
restart it. Have fun!! 
John T. Nguyen 


Listing 1. PIXCODE 
enter and run this program first to create 
and save the PIXFIX machine code. 


SUM=0 
N=N+6.44L-54 


NOPRINT 
TOP 


et 


“a YOU GOT EV 


VERIFY " 


JCUCUMKOIOQUMK 
KOKRIGCMKOL . 
COCROCRPOLFO 
FPROSCCECREOL 


cGECDCOCCOLCD 
HOYUJOLRRKCND 
CCKCOKCKCCOCDCD 
FKFEKFROCFCUR 


OCKCCFKFKFK 
KROUOFKOCKCKCKCKCKCKCKCKCCIHUOI 
CCOCSYULCOCCFHOHOPFCLODOHCKFOLMRFE 
TOLCGPIKLCULROODFEISLCEKCHDOKHLE 
BKCFOOKPLCGCOCOR” 


a 
PFOLCOMUUCK 


LE 
SNSKCRAKCK: 
CDCECODCFRY 


4128 CATA 7392. "O8HCNECONECONECON 
=D ONEDONEDOFHJLCOCCGLOHOHOPFCLCOP 
COCPOCCOPHCOUNRSECECNMPDOGCGUM 
-SDKECMPOLCDOKHHHOPFCLCDCHCKFDLOP 
IKLCOLCOCRCJOFFC™ 

148 CATA 7021, “LCOPIKLCOLCDJUKFK 
cDKHLCOPHULCOLEDCCDKEDHCOFDDCCSC 

SPNCOLDOEECDUK IROHOPFCLCOP IKLCOD 

COCPUNROCCECRDOLDOCMCDUKHIOHOPFC 
(COP IKLCODCEDPUN™ 

is@ CATA 6119. “ROCCECRDOLCDCCDK 
EDHCOF UOERJJEFCNUKNCECRUJOLCDOCCDK 
oe a ee DPFCLEONSDEDES 

DCCCCOHOPFCLCOHCHOPFCLCONSDCDEC 
CCOPNCOBCGOHCICD 

468 DATA 6728. “CCREOCUKROGCECOF 
ODOHOFFCLCDOGOUNELSHC IFROPFCLCON 
SeCLECCCOPNCOCCGUKREGCECOEOLCOCC 
CFEDCCHKF IFKEFCNJKNDECRKOLCDECCD 
EDEPNMOCOCCHKOPNC™ 

17@ DATA 63243. "“GLEMNCHOCDOCCCCoP 
SFNCHOENDCGFNNEF GHOFED GOOF OPHEEK 
COFSCCOCNGEKCIUBONY IJONDKOMEFGOEF 

GIONFICCONCNULNCEKPPOFORKRGSCOLCE 
SCCEEDHCPNDCCCHK” 

188 CATA 4503, "@EPNCOLCCECCCCKCC 
peSCccKCKCCCUCCCFRKURDROCFRFRCCOL 
COCFERKDOCROCFRERCCCKCCCKCKCCOICO 
CRROECCCLCCURRFRAFRRCCRRACCCOCCIR 
RERRFRRCCCCUCCOK” 

493 CATA 3649, "“CKCCOOCCCKCKCCCH 
CCIECEoCCCOCCCKCKCCCSCCFCCCCROCCK 
CKCCCUCCCFLORUFERNCFUICOCRIVCDOUE 
ROUGDRICCCCYCCOKCCECCCCKCCCICCOR 
RRRKURRFERRFERRCCR™ 

288 DATA 5898. “RRROBURRFRRFRRCCCO 
CUCCCKCKCCCUCCCFRARROROCFRROCCOO 
CCCFRRKCDROCFRRECCCKCCCKCKCOCICO 
ERRSCCCOCCURRFERAFRRCCRRRCCCOCCIR 
RFRRFRRCCCCUCCCK” 
2ia@ CATA 4575, "“CKCCCOCCCKCKCCCH 

Co GECICCCOCCCKCKCODSCCCKCKCCCUCC 
CENORURKRRCCCOCCUCCORORCDOUCRK IO 
cCRaCcCCCYUCCCKE CCECCCOCKCCCICCCRARRAD 

JURRFRRFRRCCRRRARG” 


Listing 2. PIXFIX Basic 


Listing 1 (cont.) 


220 CATA S321. "“URRERRFRRCCCCICC 
CKCKCCCUCCCFRRRRORCCORROCCCDCCOF 
RRKCOROCCRROCCCKCCCKCKCCCUCCCRAD 
CCCUCCURRFRRFERRCCRRRCCCOCCURRFRR 
FRRCCCCUCCCKCKCC™ 

23@ CATA 6268. “CSCCCOLCCCCOCCCK 
CKCCCOCCEGCKCCCECCCKCKCCDSCCCKCK 
CCCUCCCFNORURKRARCCCOCCIUCCORORIFO 
JCUCUOCROCCOCUCCCKCURRRARRRARARAR 
RRRRRRRRARRRARARR“™ 

249 CATA 9156. “RRRRRARRRARARRARAARR 
RRARRARARRARRARARCCKCCCUCCCRARAD 
URRFRRFRACCRRRAOQIRRERRFRACOCOVCO 
CKCKCCCUCCCFRRROECROCCRROCCCOCCOrF 
RRKCOROCCRROCCCK" 

259 CATA 3807. "“CCCKCKCCCUCCCRRD 
CCCOCCURRFRRFRARCCRARCCOCOCCURRFERA 
FRRCCCCUCCCOKCKCCCECCEELCCOCCSCTOK 
CKCCCECCFRRCCCCOCCCKCKCCDSCCOKCK 
CCOCUCCFFNOGUFKPR™ 

26e@ CATA STves."CCCOCCUCCONORFLO 
UCUC UGDNOCCCCUCCCKCKECDSCCCKCKEC 
CUCCCRRARRURRFRAFRRCCRRRROIRRERR 
PRemel ede caeonaede cy meron en 
RECCCOCCCFRAKCOS 

278 CATA 3518. " OCCRRSCCCKCCCKCK 
CCOCUCCCRRECCCOOCCURRERRFERRCCRRARCC 
COCCURRFRRFERRCOCCUCOCKCKCCCOCCOE 
LecocaccekcKeccaccercccreceKcKee 
PeccckKCKCCCUCCFr™ 

28e CATA 5913, "“NPOUFKORCCCOCCIC 
CELORNLORCUCUDDLOCCCCUCCCKCKOCDe 
CCCKCKCCCUCCCRARRRURRFRRERRCCRAR 
ROURRERRFRROCCOUCCCKCKCCCIUCCCFRA 
RKDROCORFRCCCOCC™ 

Poe CATA 395d."CFRKCCCOCCOROCDR 
FROCCKCCCKCKCCOBCOCKCKCCCRCCCDSE 
LOcCcceccckKcKCccecccecccreccKckcoe 
CUCCCUQUORFFOUKDROCFORDRNORNPORD 
FORCCCCICCCKCKEE” 

368 DATA S@72.“CUCCFRFRORFPOJCO 
CECCRLKFOSURCROCRKRRFOSCECOUCEEK 
CKCCESCCCKCKCCCUCCCFRKURORDCROCR 
OCCERKJGDROCROCROCCCCUCCCKCKCCCY 
CCcFRKCCCOECCDROC"” 


enter this listing and RUN 2980 to load the code from listing 1. 


318 CATA 3°6e8@. “FSOCRKCCFRKECCCOCC 
PROCFEGRKCCCCUCCCKCKCCOSCCOKCKCO 
cocceerocccecccKhcKcoceccoccccrcc 
CRKRCKCCCUCCCUORORFPRUKFROCFORFRNG 
RNFORRFSRCOCCCUCC" 

BeS CATA 4138, "CKCKCCCUCCCODRKR 
FPGUCCCOCCRLKFOSFSCUCCRKROFOOCCO 
CUCCCKCKCCOSCCCKCKCCCUCCCFRKFRDR 
CCUGCRECCFREFOCRCCUEOCRKCCCCIUCCCOK 
CKCCCUCCCFREKCCCO” 

338 CATA 38085, “CCORCCROCROCCFRK 
parks erba Auchcta tip heart ede 
KCCCSCCHECECCCSCCCKCKCCCaCCES 
GECRCCCKEKECCICEGFLSRUFKRFCFIIED 

LLOUDPOUDDSIC” 

art CATA Sas SE CJuceckcKecoreces 
CCECCECCCECCCECCECCCCCE 
ccccecccccecccccce 
cccococcceccoc\ece 
cccceccccccece” 


note: UP, RIGHT, LEFT, and DOWN pointing arrows are user defined graphics. Where they occur, use graphic D »E,F,G respectively. 


-5 REM 


PIX FIX © 


T. NQuyEn 


hy John 


46 LET ST=1: 6G TC 

40 POKE 2236530,6: 
LET A=S: RANDOM 
CKE 235624,56: RETURN 

S@ POKE 37062,5R: REM ROUSPIX 

SS POKE 37866,5C: REM COL/AIxX 

6G RANDCCMIZE USR S7S6i 

7@ IF NOT PR THEN GO TO i114 


Seis 
POKE 372 


iis INPUT "“": PRINT ne: ROU: 
S *;5C+6C 

i234 § (225254+32E6R4+G6C) ,36 

225) } 

426 REM --- BIG FIX MOCE --- 
117 LET KS$=INKEYS$: IF K$="" THE 
m GO TO 117 

418 POKE (225254+524G6R+6C) .56 
128 GO SUB 39% 

127 IF K$:i"a" THEN GO TO 5@ 

413@ IF *$="d" THEN LET FL=0: BO 
ROER 7 

432 IF KSs"s* THEN LET FLeaL7: 8B 
ORDER S 

134 IF KS$="a THEN LET FL=14: 8 
GREER @ 

435 iF ="p THEN LET PR=ilze (PR 
=@}: BEEP .1,12@: 21.15: INP 
UT : IF NOT PR THEN RANDOMIZE 


SR 37334: GO Ta Se 


140 IF K$="U" THEN GO TO 308 


4158 IF K$="1" THEN LET GR=GR-1: 

IF GR‘@ THEN LET GR=23 

160 IF Ks$="j5" THEN LET GC=G6C-1 

IF 6C<e@ chard LET SC=31 

17@ IF KsS=" THEN LET GR=GRHL 

IF GRez3 THEN LET GR=6 

4600 IF K$="C" TREN LET GC=GC+1 

IF GC:31 THEN LET GC=0 

485 IF K$="0" THEN a dabheshos Exus 
R 37237: GO TO 5e 

4386 IF KS="m" THEN GG SUB 4a: G 
Gc To see 

137 IF KS= THEN GO SUB 48: G 


95,1: 
E USR 37334: PF 


19@ IF NOT FL _THEN GO TO 768 
, : POKE 3715@, ( 
SR+GR): RAND 


22 POKE 37165,6 
ae RANDOMIZE 373 
25 IF GCi4 ANG GRi3 “THEN Go Ta 


33 

226 POKE 37174, (6023): POKE 371 
fos $8): FOKE 37 3434 (FL= 
47}: RANDOMIZE uUSR co Ta 
7e 

290 REM --- SCREEN MODE --—- 

S@@ RANDOMIZE S7issS: POKE 3 
Sv2,21: Oo a4 

381 LET Ks= INKEYS: IF Kg="" THE 
N GO TO 3@i 


="“u" THEN GO Sus 48: G 


EN RANCOMIZE US 


GO SUB 314: 


N 6O TO 628 

EN RANCOMIZE US 
4 GC SUB 48: G 
i LET A=3: GO 
(CGCE K$-32): L 


SUB 314: GO 
GO TO 326i 


SUB 398: GO 


--- BOX RCUTINE --- 
LET 8 Ssc=-1 BR=SR-1: L 
= L Reed 
I OF 5S THEN POKE 
6 ra] 
P 1 


Gc To 348 
SGS POKE 371¢9ea.B8C 
348 IF BR>=2 THEN 

Bane Onee USR 


378 TF 
Ec: RAND 
S75 EF 
: RANDOM 
SSB RETURI 
38S REM --- GET --- 
soe IF Kg="I" THEN LET SR=SR-A: 
Saree SR<8 THEN BEEP .1,8: LET SR= 
SSS IF K={"J" THEN LET SC=SC-A: 
IF SC<@ THEN BEEP .1,8: LET Sc= 
e 
400 IF =SR+A 
x R> LETS 
R= 
74 =SC+H 
I LET 5S 
T AT 16,6; 
FOR THIS 


X =-_TO CLEAR 
- TO coPY T 


> TO a20a0 
ST THEN G 


ine SUB i450: 
RANDOM 


Listing 2.(cont.) 


SSS REM -----~- 3498 REM --- VERIFY ~__ 
999 PLOT 8,193: bRAU 255,22: CRA i4@S INPUT “": PRINT na;" U 
S48 IF KS=CHRS 235 THEN IF ST TH U_@8,-97: DRAU -255.8: BRaAU @,97: ERIFY CODES? (Y/N)“ 
EN GO SUB 48: GO Ta se RETURN idig@ IF INKEY$<>"y" AND INKEY $<> 
646 GO To 225 2638 REM ------ “n" THEN GO TO 1419 
347 REM i828 CLS : BORGER ?: LET FL=8: R 1425 IF INKEYS$="n" THEN RETURN 
S45 REM ~--- HELP SoReENS ___ BNDOMIZE USR 3734S: PLOT 4.198: 1438 CLS : PRINT “= REUIND Tape 
649 GO 5uUB ieZ8a ? INK 7: DRAYU 8,3: PLOT S,.107: cRA AND PRESS PLAY To VERIFY": 
858 PRINT AT 18.4: "<ARROU:" ‘TAB : SS: CRAY a,3:- 2435 IF IN 2542395 THEN GO To i4 
2; "KEYS IN BIG PIK MODE .«7c8 RANCOMIZE USR 37253: PLOT 25274 3s 
HOLD COUN <cARS SHIFT;:" i2: INK 8: POKE S?225.4: RETURN i448 RETURN 
i: ¥ sARROU> KEYS To mou i836 REM --- SAVE PICTURE —__ 1458 REM --- LovAp --- 
he s * ENTIRE SCREEN. "-* 1848 PRINT AT 414.3: “PRESS -0e ce 2458 CLS: PRINT “= ENTER NAME o 
ik ARR * 35 - To SAVE AS € SCREENS "+: F PICTURE.": INPUT NE 
; . + L - TO SAVE FROM MEMORY" i465 IF NS$="" THEN RETURN 
TA 2045 GO SUB 959: PRINT AT 9,13;" 3478 LET ST=1: PRINT -" 3 PRESS Pp 
K SAVE ” LAY ON RECORDER.": Go suB 1435: 
ot oF 2845 LET KS=INKEYS: IF Kgis"s" 9 PRINT ‘"“ LOADING -"-* ee Ne 
: RE Keio" AND KS<3CKRS 13 ° THEN ““ CODE seese": Loac NSCOCE Sa@a0 
Sao GO Te isas @: PRINT * FLASH 1: “TURN OFF REC 
REL 1847 IF K€=CHRS 13 THEN GO TO 82a cResn PRUSE 128: co SUB 4@: co 
S62 e ; ms 
BS; 2250 IF KS="L" THEN SO To i072 i888 REM -----_ 
“> S 2853 FOR U=iS TO 12 STEP -1: ‘parr 2583 “NAHE OF PICTURE? “iN 
NT AT J4i,3:" #: ‘ THEN GO TO 2a80 
“3 AS 2865 IF LEN N$>18 THEN GO TO 290 
a xT J 8 
23 7): £928 LET ST=1: GO SUB 4g: ga To 
" GO TO S38 
a 2979 REM 
23 GSO #2988 REM --- PROGRAH STARTS 
— HERE. 
22 £998 CLEAR 36221: Loan “Pix.Cide 
zz “CODE 36912: CLs PRINT AT 11,7 
ue i FLASH 2; “TURN OFF RECORDER™ P 
ci RUSE is 
a¢ S808 LET N=476641: FOR Us1 To 3a: 
NT PCKE (N4JU},7: POKE {N+S24+d) 7: 
PORE (N46440),7: POKE (N+S64uU1 7 
7 PORE (N4+2234U),4: POKE (N+1684 
ay 8: 
=¥ S885 PCKE (N419244),5: PoKe (h+2 
6 24483,5: PORE (N42564U) ,7: NEXT 
=e 5 
5 AT 9.44:" + SSi8 FOR v=8 TO 8: PoKE (N4+U332) 
H RO OMENU 3 22: PORE (N4U292432) 07: Nex 3 
fata! RE S825 LET NS=“PICTURE“: pPoKE 3729 
87 H 5.8: £ TT 
i 2 3815 Po 
e 45: RAN 
a@c3 5 S825 Po 
IF 3 48 SR=37: 
Su 2228 ET GC=ii 
eo ERIF: S823 PoK 
RE? 2225 6 INKEY g="n" 3: POKE 
23 OIF THEN G 2 3832 co 
E USR 3 4445 Pp < YING :“*" e363 REM 
TRE 43; "ens: oa “,20434UAL oS7S REM 
IF K VERT H ‘ FLAS sooo SAUE 
eo H “TURN OF PAUSE 6 RUE “pix 
RE} 8: O Toa 323 LS. s 
FOR PRINT AT Ua st 60 TO 1845 E 
FE 


bs ~ 


by Jim Pitts 


This program will allow you to print out high resolution striv chart 
representations of data stored in the memo of a ZX81 or TS1500 conmpvuter. 
Other strip chart programs exist for these inexpensive computers but these 
allow only a resolution of 32 or 64 pixels. When combined with the 2040 
printer "STRIP" will provide a resolution of 255 pixels, which allows 
complete resolution of a-single data byte as collected from an 8 bit 
analog to digital convertor. 


HIGH RESOLUTION STRIP CHARTS FOR THE 2X81 


In my system data is stored in a non-volatile 8k memory chin, the cmos 
6264LP-12, mapped to the protected 8k memory block above ROM. This is 
an easy to implement modification but is not necessary for use with the 
"STRIP" program. The popular Hunter Board also uses this area of memcry 
for non-volatile storage. See July and August '83 Radio-Electronics for 
details on the Hunter Board. You may find it more convenient to store 
data above RAMTOP or even in an array. The basic @river shown in Fic.1 
can be totally re-written to suit your needs by noting the following 
addresses in the machine code portion of the procram. 

TABLE begins at 16516 (32 bytes long) 

TICS 16549 interval between timing markers 

30TM 16550 & 16551 memory address of beginning of data file 

=OP 16552 & 16553 memory address of top of data file 

START 16556 USR call here to print the chart 


The 32 byte table represents the 256 bits of the chart from bottom to 
tep. By poking the appropriate code in this table you can modify the 
number of horizontal amplitude lines on the chart. For example, the 
bottom line of the chart is invoked by an 80h (10000000b) written into 
the first byte of the TABLE. Left as-is the program draws a botton, 
mid-point, and top line. 


A disassembly of the machine code portion of the program is shown in 
Fig.2. This routine is poked into a 1 REM line which firs: typed into the 
computer using any 223 characters after the REM token. The listing in 
Fig.3 lists the bytes to be poked in decimal and in hex for anyone 

who has a hex loader they would like to use. If you do not have a loader 
>rogram already on tape, type in the following lines, run it, pcke the 
appropriate byte when prompted, then delete all but the 1 REM which 
now contains the machine code routine. 

2 FOR I=1 TO 223 . 

PRINT’ 5s -* 

INPUT A 

POKE 16513+1,A 

PRINT 16513+1I;" “GA 

SCROLL ’ 

NEXT I 

STOP 

Don't forget to type the long 1 REM statement first! ) 

You may then proceed to type in your basic driver. 

Comments and questions regarding the program are welcome. 
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WHAT IS THE CLICK... 1 fee saueeenaur Tie wT GOT 70 
NATURE OF GOP 7 CLICK... % CUP CHIVES. START LABELING 
ae eae WHIRRR... STIR AND SPRINKLE MY SOFTWARE... 
cele \ WITH BACON ETS. 
a oS 
D x 
a" SS 


ize 
ASS 


———— * 
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MANGE 


7 Wish 
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Veet fee 
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“O0P5° I DISTINCTLY 


CUR ser sor ON THE TOUR 15 
1 MR. OLIVER WENDELL UCNES.. . oe THIS PORTION OF 
TIME TO FO%ED SHORT “HACKER.” : HEARD AN OOPS'/ THE FEATURE IS THERE A 
STOP TOPAY HE'S BROKEN KITO WHAT NOTHING. YOU SAIP AN ‘GOPS,” T HEAR: ALWAYS FALLOUT 


THe NATIONAL STRATEGIC 
DEFENSE COMPUTER... 
/ 


“OOPS NEVERMIND. 


AN ‘OOPS “/ WHAT’S THE GIVES METHE  SIELTER 
‘QOPS“?/ WHAT? WHAT Z | \HeEse-seeeies! Nearer 7 
t, _ : 


| 


AND SMILE 


aB BY RICH TENNANT 


{ IN ESSENCE, We CAN. MOVE VOCE AND ) AND BY INTEGRATING CUR NETWORK ) 
DATA ACROSS TOWN OR ACROSS OCEANS. | 


WENE GOT A TOTALLY SOFTWARE DRIVEN 
DIGITAL TRANSMISSION MUUTIPLEXCR WITH 
ADAPTIVE DATA PULSE CODE NOOULATION 


WOICE CARDS 


WELL THAT ALL SOUNDS VERYGOOD * 
MR RATH, AND I'LL THINK ABOUT IT. 
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HIGH RESOLUTION STRIP CHARTS FOR THE 2X81 
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TS 2868 


This if the classic game you 
Played With Pencil 
Sfserph-Ppaper with &@ Friend. 
this program the computer is 
your adversary, Esch player has 


i BATTLESHIP 
é& DESTROYERS 
3 FRIGATES 


A Battiethip consists oF 
four SQuares,, Destrouers three. 
and Frigates are twee Squares. 

When the computer sske uou 
to enter your chips. enter the 
coordinates that you want the 
bow of the fhip, and Rif it is 
to be to the right, or 
herizontet ofr U for up or 
Wertical > FSR . Yhen entering 
your fhe = the letter 
and th af the 
coar ti sha e+ DE « 

computer 
£tag » but 
wit €ach. 
eve oppasi 
Fle £ 


ai? REM, COMPUTER BATTLESHIPS by 
ratt 
SQ REM Initiaiize variables 


6@ LET a=8: LET b=i: LET d=2: 
LET €=7 RANDOMIZE 

78 BORGER ©: FAPER €: INK a: B 
RISHT a: CLS 

82 CIM bsteai: DIM weibi: DIK 
m$i6): DIM isiivy): BIM jsi3ei 

9@ OIM hi3): BI g{3) DIN yis 
}: DIM x td 


180 LET ng="BDDFFF" 
118 LET bs="812345678SABCDEFGHI 


128 FOR i=b TO 3: READ Atil: LE 
cs gti ah til: NEXT i 
38 DATA 4,656,565 
id@ FoR i-é To &: READ util: RE 
ALD xtid: NEXT i 
15a DATA -b,a,-b,b,a,6,b,b,b,a, 
b,-b,&8,-b,-b,-5 
168 REM FFHz INStructions +444 
188 PRINT BRIGHT 6; AT 3,48;" 
COMPUTER BATTLESHIPS ¥ 
158 PRINT ‘“"Battleships is lau 
€d on & boardof 46 by 18 squares 
on which areftited 1 Battleshir, 
ée Destroyersand 3 Frigates 
280 PRINT “"Each Ship if repress 
ented by a horizontal or verti 
Cal line of 428, 34D of BSF, No 
two Ships are attlowed to touc 
h €scCh other in any direction.” 
2418 PRINT “"The object is ta ta 
Cate ond fSinkthe computers ship 
= before it” £inke yours. A f£cor 
€ GF 416 wins,” 
e228 PRINT “"Locations are rere 
réd ta by co- ordinates and are 
Cheten by Pressing the lette 
c Followed buy the number .* 
222 PRINT BRISHT 5;° Press ar 
yY KEY tO Continue “* 
248 PAUSE 3 
252 REM Sitert af screen setup 
2628 FOR i=b TO 21: PRINT AT i,a 
3}J%: WEXT i 
272 PLOT ¢,34: DRAV 3,151: DRA 
25i,a: prau a,-131: DRAW -£51,¢4 


202 FOR i=5 TO 123 STEP 128 


298 PLOT i,37: DRAW a.1e5: DRA 

117,8: DRAU 4,-125: DRAW -11i7,4 

3@e@ NEXT i 

 ot@ PRINT AT d,b; “HUMAN SCORE: 

sAT d,17; A SCORE: ” 

322 PRINT AT 4,3; “ABCDEFGHIU";A 
tS 4,19; “ABCDEFSHIU" 


20 FOR isa TO 9 
aan PRINT AT 641, 
i: NEXT 4 
432 REM 23 Seis 


b, i; AT 6+i ,17; 
up the boards = 


412 PAPER 4: INK 4: as isd TO 
15 STEP 16: PRINT AT S, KRK 
KKKKKK" | AT 1B 5b XKKKKKHKAK 

429 NEXT i 

438 FOR i=6 To 1s 

440 PRINT AT i,d;"X";AT 1,143; "x 
SaAt 2,185 °%X" AT i .2O: °K" 


tsi FOR j=3 TO 42: LET k=li+jiv 


468 PRINT PAPER €; BRIGHT (tk-I 
NT Ck) 13d) G AT 3,5," “JAT i, 54+16; 
“; NEXT 
478 NEXT 1: FAPER €: INK a 


6@8@ REM 43% Enter the ships #22 
628 BRIGHT b 
638 60 SUB 4882: GO SUB Saae 


64@ LET dirs: LET maxsa: LET ¢ 
Last=sa: LET ctlastsa: LET. h=a: LE- 
T 3=a: GO SUB 908 

65@ IF RND<.5 THEN 60 TO 83e 


REM 22% Main gene Loop +2F 
GO SUB 41828: REM Human move 
IF h=16 THEN GO SUB 3802: FP 
‘AT 19,4; “Human won “j;h;" to 
"393: STOP 
GO SUB 2222: REM Comps move 
IF g=16 THEN GO SUB 80008: F 
AT 19,4; "Computer won "59;" 
to “jh: STaeP 
a52@ 60 To a12 
982 REM 4442 Score update +FHe 
998 PRINT AT ¢,135;h;AT d,29;9: 
RETURN 
10982 REM #224 Huban’s BOVE F#4H 
1010 LET j=6-btig(b) ¢3)-beitgidi< 
5S) -b¢ (9 (d) (<3) —be19 (3) <5) -—betg (3) 
<4) 
1@20 IF jtd THEN LET j=d 
12228 GO SUB 8822: LET pas=b 
nek PRINT AT 13,8; “HUMAN has .”; 


i" pores, Enter co-ordse” 
jose FOR: 8=5. TO. gs LEF reas Ler 
C=a: LET pot=posed 
18298 PRINT AT 24,6; "Move Number 
eee b;AT 21,16; °7";: PRIN 
1108 GO SUB 7eaee2: LET c=c+i6 : 
1168 FRINT AT 15,pos;bs$ic-33;bst 
r-Sl;AT 21,8; js 
1178 IF ATTR tr, c) =o? THEN PRINT 
gar d;AT 28,po0e;"Mad": GO To 12 


ise LET wWS=SCREENS 
i208 IF #3=" " THEN 
GO TO i27 


(r,c} 
GO SUB 5582: 


aoe IF #$="B" THEN LET gitbi=gt 

ye 

oer IF e3="D" THEN LET gid) =gid 
“F' THEN LET gi3}=g(3 


-oee IF #3= 


geee PRINT PAPER d; INK €; FLAS 
Hb; AT &, C;#%: PRINT AT 28,po0s; 
LB ws; 138 

1258 G60 SUB 5aa8 

1258 LET h=h+b: GO SUB 992 
1272 PRINT PAPER d; INK €; 
HT bj AT F.C; 83: 

i230 IF h=ib THEN RETURN 


BRIG 


REM 323 Computer’s move <= 

LET j=6-b2th (bi) ¢3) -bs th (d)} 

Be ne Venema ey eae ye 
< 

2828 IF jsd THEN LET je=d 

2232 GO SUB 3a28@: LET pos=b 

2V4e8 PRINT AT 18,4; “COMPUTER has 
"73; " moves,” 

2850 LET rertast: LET c=ctast 

£2258 FOR t=b TO j: LET pot=posded 

28708 IF diroa AND gax>a THEN GO 

TO 25080 

2188 REM 2232 Random choice +274 

2118 LET r=INT (RND218)465: LET c 
=INT (RND218343 

e2ife IF ATTR (f,c)=87 GR ATTR tr 
,C1i=82 THEN GO TO 2112 

£21528 REM Isatated square check 

aaa LET v=a: FOR i=b TO 7 STEP 

tae LET attrsATTR (r4yli)d,cexti 


2iae IF attr=87 OR atir=82 OR at 
tf =36 THEN LET veve.2 


eae NEXT i: IF v=b THEN Go To e2 
£288 REM == Ship close check FF 


LET v=a: FOR i=b TO 8 


ee28 IF ATTR irey (i) ,c4+x (id) =87 

THEN LET v= 

eee NEXT i: IF v=b THEN GO TO 2 

eres: GO SUB 3882: LET w$=SCREENS 

rF,C} 

£2018 IF w=" " THEN GO SUB 6582: 
PRINT PAFER dg; INK d; BRIGHT b; 

AT £,c;"xK": GO TO 2410 

2320 IF #$="B" THEN LET hib) =hib 
}-b: LET pax=3 

2208 IF ws="D" THEN LET hid) shid 
}-b: LET gax= 

2346 IF ws="F" THEN LET h(3)=h(3 
}-b: LET pax=b 

2358 PRINT PAPER d; INK €; FLAS 


AT. fs, ,C, ¥S: PRINT AT 22,pc0s; 
w5,"2" 
2360 GO SUB 62283 


‘Ba7e LET g=9+b: Go sua oom 


23808 LET Bia iaetenoc: Ss) 
2398 PRINT PAPER gd; INK e€; 
TT 6A fos os" 

2488 IF 9=16 THEN RETURN 
24128 NEXT & 

LET rlaster: LET clast=c 
PAUSE ete 

RETURN 

REM #33 Search routine 22 
LET rter4eyidir)}: LET ct=c+x 


2618 IF ATTR irt,ct)=87 THEN LET 
r=rt: LET c=ct: GO TO 2682 

2629 IF SCREENS 
LEY riert: LET eitect: 
1f4+4-62 (dir =5)-i8se(dir=7): 


£3008 

2630 IF ATTR (rt,ct)=82 OR ATTA 

{rt,cCt} =36 THEN LET dir=dir4+4-54 
-ivsidir=7): GO TO 2582 


(dir =5) 
2640 IF SCREENS (rt,ct) <>" " THE 
>: LET rert: LET ci=ct 


BRIGH 


: LET c=ct: 60 TO 28008 

BBGG REM s35 Succesive hits #24 

2810 GO SUB 3@a@a: LEP w$=SCREENS 
ri,ci) 

2820 IF w3=" " THEN GO SUB 65ac: 

PRINT PAPER 4d; INK d; BRIGHT 5; 

AT ri,ci;"*%": &O To asee 

2530 IF w$="B" THEN LET hitb} sh Ck 
-b 

2840 IF w$="D" THEN LET hid} =shid 


2350 IF w§="F" THEN LET h(3)}=h(3 
) 


2868 PRINT FAFER dg; INK €; FLASH 
6; AT fi, ae PRINT AT 293,pcas; 
“a" ies; be 

287282 co SUR 6222 

2098 LET g=945: LET gax=max- —b: 

O SUB 3Sa2 - 

2890 IF max=a THEN LET dirs=a 

£29808 PRINT PAPER d; INK €; BRIGH 

T BAT fi, ci; "2" 

pepe Go Ta 2488 

3@82 PRINT AT 19.po0s; 

r-5S}: PAUSE 32: RETURN 

4800 REM 3242 Hupaen‘’s Ships +#22 

48120 GO SUB 3888: LET pos=a8: LET 
bad =4702 

48208 PRINT AT 18.8; “HUMAN SHIPS: 
are ftart co-ords A-J , @-o , 

- Right or UU - Up” 
PRINT AT 28,9; PAPER 5;" 


FOR n=b TO 6 
“RINT AT 21,8; j8: 
LET fsa: LET caa: 


n=b THEN PRINT AT e1,a;" 
Bari icchia {4 squares) " 
4868 IF n=d OF n=3 THEN PRINT AT, 


bSitC+3);, bSt 


PAUSE e€+¢€ 
LET z=a: 


21,a;, “Destroyer “4STRS (n-bi+” 

{3 équaree) - 

4072 IF n>2 THEN PRINT AT 21,8;" 
"“*STRS in-B}¢+" (2 EqQuare 


a 
£) 
azae" PRINT AT 21,26; FLASH 56;"?" 
PRINT ; 


4ie8 G0 sup Vana 


4160 IF IN#KEYs$="r" OR INKEYS="R" 


THEN LET z= PRINT “R": GO TO 

41928 

417@ IF INKErg="u" OR eee ee: 
THEN LET z=d: PRINT “U": GO TO 

41990 

41808 GO TO 41628 

4190 BEFP .1,€+b: PRINT AT 23,265 
4220 IF SCREENS (rr, CUS 2 THEN 

ral ig="Occupied square”: GO TO. 
ba 


4210 LET m=3-bzin>b!-bstn>3) 
4220 REM = Try to place Ship + 
42408 FOR x=5s TO po 


4250 IF z=b THEN LET ci=c+x: LET 
ricer 
4260 IF z=d THEN LET cat=c: LET ¢ 


i=r-x 


42708 IF SCREENS (rF1,c1)="K" THEN 


7a i$="“OQffF the board”: GO TO b 
2 

4200 IF SCREENS (ri,ci)<:" " THE 
NW LET i8="“Overtaps another”: G2 


TO bad 
29@ REM 22 Check neighbors #4 
4380 LET wea: FOR j=-b TO b: FOR 

K=-b TO b 
4310 IF SCREENS (ri¢j,cithics" " 
THEN IF SCREENS (ri¢j,C14k}<>"X 
“ THEN LET web 
4322 NEXT &: 


NEXT J 
433@ IF v=b THEN LET i8="Teoo cleo 
se”: GO TO bad 
4342 NEXT x 
4350 REM 434+ Place Ship #24 


4362. 


=< 


FOR _*=s TO 


Se ed 


STT1 CLV 

i = 

HLL Leonid 
Orit z= Ft: CET Cist4+x: LET 
ficsr 


4388 IF z=d THEN LET ci=c: LET + 
i=r-x Z ‘ 

$2398 PRINT AT ri,ci; INK b;ngsind 
4482 NEXT x 

4418 LET poft=paosedd 

4428 PRINT AT 20,P0s; PAPER 5; I 
NK bjngtn} 

4432 NEXT n 

4448 FOR x=1 TO 180: NEXT x: RET 
URN 

4708 REM Invatid routine 

47418 PRINT AT 21,8; INK €; PAPER 


d;is,” Try e9ain “; FOR f= 
TO 3: BEEP ae BEEP .@5.,12: 
BEEP .@5,3: 8£ 285,12: NEXT F 


4720 FOR’ f= =b ro 1@0: NEXT Ff: PRI 


4738 Go To’ 4243 

SQGG REM = Computer’ Bhi 

SBi8 GO SUB saae: Ler “pos =o 

S@22 PRINT AT 18,4; "COMPU 

PS now positioned :" 

Si@@ FOR n=b To 6 

SiiQ LET m=3-bsineb)-bei(n>3) 

S428 LET rsItT (RNG4(li-m)})46: L 

ET c=INT (RHDs(1i-m}}419 

S138 60 TO 528841084 (RND<. 5) 

SiS@ LET pot=poted: BEEP .2,12 

Si60@ PRINT AT 22,po0s; INK gd; FLA 

SH bjngin} 

Si7@ NEXT n 

Sid@ PAUSE 22: FOR x=b To 4: BEE 

P .@5,15: BEEP .@7,12: NEXT x: P 

RINT AT 21,14, INK 4; FLASH 5; "DB 

one" 

S198 PAUSE 288: RETURN 

S288 REM ¢34 Ship horizontal #4 

S2i@ LET raiser: FOR x=a TO wm: LET 
Cli=C+z 

Se2e8 IF SCREENS (ri,ci)<>" " THE 

N GO TO Siiz2 

S238 60 SUB S42: IF v THEN Go T 

O 5118 

S248 NEXT x 

S258 FOR x=a TO @: LET k=tr+c4x} 


A C+x; INK €; BRIG 
AT tie RINT kK B { 
S272 NEXT x 
S2eoe@ 60 TO 5152 
# Shi 


So28 REM 42 nip Wertical +24 

es LET ci=c: FOR x=a TO wm: LET 
ri=rd+x _ 

S328 IF SCREENS (r4+x,c0) 43" " THE 


N 6O TO 5418 

5338 GO SUB S422: IF v THEN Go T 
Oo 51120 

Fla2 NEXT x 4 

ot as FOR x=a TO m: LET k=tr4¢c4+xi 


5360 PRINT AT F+x,C; 

HT ((k-INT fkiadi;ngin 

S378 NEXT x 

S298 GO To sise 

S482 REM Check comp’s neighbars 

S418 LET yea: FOR j=-b TO b: FOR 
K=-b TO 5 

S428 IF SCREENS (ra¢j.ci¢kigi" " 
THEN IF SCREENS (r14+j,cCi¢k) <¢3"% 
“ THEN LET web 

5430 WEXT &: NEXT Jj: RETURN 

6028 REM Hit Ship - sound effect 

B6@i8 FOR ise TO a STEP -.1: BEES 
-@05,i: NEXT i: RETURN 

6588 REM Miss - sound effect 

6512 FOR isa TO ese: NEXT i: BEE 

P .3,3: RETURN 

7O@G REM 243 Input co-ords #24 
7@i8 LET c=CODE INKEYS$-62: IF o> 

34 THEN LET c=c-32 

Pkg IF c<3 GR cif THEN GO To 7 

7B3Q PRINT CHRS (c04+562);: BEEP .1 


72d8 LET r=CODE INKEYs$-42: IF r< 
6 OR 7-335 THEN Ga To 7ede 
7858 PRINT CHRS (6442);: BEEP .i 


7258 RETURN 

BeeVe REM = Clear bottom Lines 
88ie FRINT AT 18,8;5$; 38; 355 35: 
RETURN 

9999 CLEAR : SAVE “battleship” L 
INE 1: PRINT “REWIND TAPE AND PR 
ESS PLAY Ta VERIFY": VERIFY "" 
: PRINT “"OK 


pcs €; 8RIG 


TIFICIAL 
fea 


“IT'S BEGINNING To SHOW SOME HumAtl 
CON ACIERUSTICS — FAULTY REASONING, 
TOLGETFULNESS AND REPETMON 


SHOE 


WT SESA6 TE BE 
ThE PROBLEM? 


Sapna iia, ll 


Se een Pee Ones bal: 


REVRESE 
- REVRESE if @ game of shifting 
humbers for your 18908. The rules 
for Playing ere in the program. 
Revrese i5 one of the oldet 
SamesS programed on computers, 
This program is from a e€arty 
ifsue of SYNC, and Tf epotogize 
Lies not <Knawing the author’s 

eme e : 


=f 
Pr 
ws 


& PRINT 

i1@ FRINT TAB 11; “REVERSE” 

oa PRINT 

S PRINT "S$ S$ Sree rtery 
188 FRINT AT 6,2; """“REVERSE*"-- 


A GAME OF SKILL" 
ize DIM Alea) 
Pac REM ¢32N = NUMBER OF NUMBER 


“a50 LET N= 

16@ FRINT AT eter: €; "bo YOU WANT 
THE RULES? CY /N 

172 INFUT AS 

i175 IF Ag<ie"Y" THEN PRINT AT £2 

@; "WAIT A FEY SECONDS----- “BRA 
INs"* AT WORK SCRAMBLING THE L 


152 IF ABl2°"Y" THEN GOTO 218 
196 GC0SUB Fie 

2ee REN #2 MAKE A RAMDON LIST A 
(13 TO ACH: 

218 LET Atii=INT ((N-1) ERNDe142 


N 

208 LET AK} SINT (NERNDF141) 
24@ FOR J=1 TO K-1 

258 IF AtKI=A(Udi THEN GOTO 22a 
268 NEST df 

272 NE? K 

268 REM z= PRINT GRIGINAL LIST 
AND START GANE 

29@ CLi 

38a PRINT AT 4,8, "HERE VE GO... 
THE LIST TS: * 

318 LET T=2 

322 GOSUB Gie2 

338 tied AT 12,8; "HOU MANY SHA 
fi I REVERSE?” 

3a5 PRINT S 

34@ INPUT FR 

O45 PRINT AT 42,8; " 


o5@ IF R=2 THEN GoTo Sze 
3628 IF R<=N THEN GOTO 368 
372 PRINT AT i2,2@;,"00P5?77 TOO M 


ANY 
SA PRINT “I CAN REVERSE AT NOS 


376 FOR U=i To 62a 

377 NEXT U 

Bee GoTa 3222 

338 LET T=T4+i 

4@8@ REM 4zREVERSE R NUMBERS AND 
PRINT NEU LIST 


4 
441@ FOR K=1 TO INT (R72) 
42@ LET Z=A(K} 
43@ LET AK) =A(R-K41) 
44@ LET A(R-K41) =Z 
4528 NEXT kK 
460 GOSUE 610 


- 


“@78 REM == CHECK FOR A WIN 


. 468 FOR K=1 TON 


492 IF AK) <>K THEN GOTO 33e 
S@O@ NEXT K 
5i@ PRINT AT 16,8; “YOU WON IT I 


WN o";T;" HMOQVUES. 


S328 PRINT AT 28, 8; "TRY AGAIN? { 
YES OR NO} 
S48 INPUT As 
S5@ IF Ag="YES" THEN CLS 
SSi IF Ag="YES" THEN PRINT AT 1 
@,8;" HOLD A FEW SECONDS 
WHILE THE LIST 
IS SCRAMBLED.” 
S55 IF Ag="YES" THEN GOTO 218 
S62 PRINT AT 22,0;"0.K. HOPE YO 
U HAD FUN...” 
S78 GOTO 562 
688 REM #2 SUBROUTINE TO PRINT 


628 FOR K=1 TON 

625 LET H=H42 

638 PRINT AT 7,M;AC(KIG" "3 

642 NEXT K 

658 RETURN 

REM +2 SUBROUTINE TO PRINT 

THE” RULES 

7ie@ CLS 

715 PRINT AT 1, 4; V THIS, Is THE G&G 
AME OF ““REVERSE™*© 
7i? PRINT AT 3,@;"TO IN ALL, ¥ 
aU HAVE TO po rs" 

2@ PRINT - “ARRANGE A LIST OF NU 


725 PRINT “(41 THROUGH "j;N;" ) I 
N_NUMERICAL” 

73@ PRINT “ORDER FROM LEFT To R 
Isht. "> 

733 PRINT 
735 PRINT “ TO MOVE, YOU TELL 4 
E HOW MANY 

748 PRINT "NUMBERS (COUNTING FR 

FT)" 


745 PRINT “TO REVERSE. “ 
= NT 


75@ PRINT “FOR EXAMPLE, IF THE 
CURRENT LIST" 


768 PRINT " 2 3 516 7 8 9” 
778 PRINT “AND you REVERSE 4, T 
HE RESULT” ; 

775 PRINT “UILL BE:" 

788 PRINT "5432346 7 
738 PRINT “NOU IF YOU REVVER 
» YOU WIN..." 


nn 

fo eco 
m tr 
Zo an 


626 INPUT Ag 
CLS 


818 PRINT AT 4, @; "NO DOVET YOU 
WILL LIKE THIS GAHE™ 

815 PRINT AT 6,412; """BuT""" 
S22 Si AT 42,4; °IF YOU WANT 


625 UPR INT AT 14,6; "REVERSE @ (Zz 
ERO).” 

64@ INPUT As 

645 PRINT AT 22,@;"WAIT A FEU S 
ECONDS WHILE THER LIST IS SCR 
AMBLE.” 

&5@ RETURN 

9008 SAVE “REVERSE 

60909 RUN 


FOR ¥OUR T&/1966 


1@ FAST . 

20 FOR X=821 TO da 
36 RAND USR X 

3G PAUSE 5 

48 NEXT X 

58 FOR X=829 TO -821 
66 RAND USR & 

76 PAUSE 5 

849 NEXT & 


Type this into your TS’108G, 
RUN 


volume on your TY, an 


1 REN _ BRP RR ER 
18-1080 


ng a long REM line for atanks on 
1s/1868 can be made a lot easier Si a aie sherk 


program. 


First you need REN statment wit 
characters. (€ this will ha the Tast 1 REN 
wid ewer heave to he > ext in 


ke 
listing itn Fig. 1. RUN this en the {aaa 
ask For the start address. This ts 16514. 
you are read to key in the numbers in Fis. 
ey in each line of Fig. one line at atime. 
ressing ENTER at the end of each pie: CEach 
line consists of 12 characters no 


eEeeee When you have Finished the ae ee hit 


Finally add the Lines in Fis 3 and SAVE. 
You must have Line RENK it is ea safety 
buffer. After you have SAUVEd the A aa you can 
RUN it. When the mesaaue REN LEN ET omes BPs 
key in 1880 and ENTER. You will now Mibee a Py 
with 1688 dots. Delete lines 4,5,6,7,8 & 9. You 

o not have to use 1686. You can use what ever 
you need in your Program. 


FIG, 1 


9686 PRINT “ADDRESS TO START ?”: 
9819 INPUT A 
S626 PRINT ae 


AS="" THEN INPUT AS 
AS="S" THEN STOP 

X=9 THEN SCROLL 

X=@ THEN PRINT Q:"": 
INT ASC TO 2);" "; 

KE Ac iss CODE AS* CODE AS 


T A=R+1 
T AS=ASC3 TO dD 
T X=x+l 


X=6 THEN GOTO 9646 
9656 : 


turn 


IN CASE OF 


up the 


- FIG 2 


D6GBCD230Fe1 
B6882A82<3ES 
@9444D2A2948 
89222948216C 
483E@9SE2356 
DSEB@9EB7228 
732323302863 
D118EEE1ES@1 
E24@A7ED4244 
4DE1EDB821E3 
483688233682 
230163837123 
782336EABBaB 
2311€18GEB19 
EB361BEDBG36 
7534CD2BRFC9 


“REN LENGTH ?” 


514,N-2S56% eee veoh? 
51S, INT (N72 
R 16516 


Bae 


mn 
ia) 


MOCO MONO) 


nm 
ei 


CIRCUIT SKETCH 


. Circuit Sketch allows vou te draw simPle electronic circuit 
diasrams on your display, and on vour TIMEX printer. 

When run wou will be asked for the etartins coordinates of 
your circuit, The coordinates will be Printed at the uPFer left 
of the screen. and uPdated as you Progress. Te draw sour circuit 
wee the arrow keys, 5, 6. 7. & & When wen Wish to Flace 
comPonent in the circuit. Press the key which corresronds toa the 
first letter of that comPonent. The components included in th 
Program are Listed at the bottom of the screen. They are 


fu 


mo 


io CAPACITORS 22 RESISTORS 2 TRAHSISTORS 
$0 DIAbES 22 THDUETOR BE? SWITCH 
Tr? BATTERY & 


Dice you Pressed the key for othe comPonent wou wish te 
Print, tine camPuber will ask for oother infomation on the 
comPooent. Tire comPuter musth kino aif it is to be drawn 

. ran 7 s 


Rorizontaily or vertically; from the neg. @r Bos. ends tures 
transistor (Pak. wens whether a resister 12 Variable ect; e 


ate - 
s+ Sf Da 


aie 


Hil trangsisters are drawn herizentalla. startine at the 
base and ending at the callector. ALL other comPontents may be 
horizontal, from left to right. dp wertical, bottom to tear. 
Variable resistors are from the central Barra Poink to the rickht 
mr took 
Rleo you may chanze the Flottina ‘asition by Pressing the 
"Pr" kegs and keying in the new Position. when wou wank to copes 
bo the Printer Press the "2" key, 
This. FroGram is just the tip af the Prowertial "[TCEBERC", 
comPontents can be added. [t's Meher = gacks’=s, 
"Si ects ect. Gr you can define the keys to draw trees, 
cate, docs, and whatnot. And use it as a elehochf acd. 
TT 
[ | ! 
1 (i wi} 
er at 


rt = c —— 4 an LET fig="" 
7O: FORE 236a9,58 45 LET MS=INKEY 


INVERSE @:" RESTORE (UAL #3-31241608 


4 


3 
oa 
RSE 41; "¥";) INVERSE 45 IF M$>="5" AND Ms<="8" 
G0 TO ase 


tha [ITC 
al is 

z= 

~ 


tt I~ J 


INVERS 


; ae 
/"APACITOR “; INVERSE 1;" 6@ READ A,B 


INVERSE @;"RANSISTOR “; IN 2 IF SCREEN=@ THEN GO To 64 


FRSE 1;"D"; INVERSE @;"IOCE "; I 64 IF X=255 AND ng="2" 


NUERSE 4; °F"; 


ane 
‘F 


I 


CTOR 


;"ESISTOR “; INVERSE 1;"5"; INVE 
RSE @; "WITCH" 


NUERSE 4;”I"; INVERSE @; “"NDU- ee ag eA 
PopNVERSE 13 7R"; INVERSE @ 65 LET X=x+A: LET Y=Y4B. 
62 PRINT OVER’®;AT 8,9; 


- : 2 - 


PLOT POSITIC BE IF w3:="S" AWD ma<="2" THEN 


L 
MITIAL PLOT FOS SS IF m#="Z" THEN GO To geen 


a Ce we . S@ RESTORE SS: FOR z=1 To : 
HK @: BORDER 6 READ Us,U: IF Us=Hhs THEN GO TO U 
= eT 


4 
@ixz;" - | 6@88,"I" ,25aa “pe 41990,°°,18, L 
See ae ,2a0e, "rR" 2508 ,"T",3000,"b" , dase 


5 INVERSE @; "USE"; I AND M$="5" OR Y=175 AND MS="7" 
NUERSE 1;"B"; INVERSE @; “ATTERY R Y=@ AND M$="6" THEN LET SCR 


59 PRINT QUER @;AT @,@;x%;" - " 
72 DRAW A,B 


75 LET SCREEN= i 
8e@ Go TO 128 


ao INPUT INVERSE 1;°X"; INVERS 


@;" - COORDINATE? ";x 
Tops INPUT INVERSE 2;"Y"; INVERS 
E @;" - COORDINATE? aay 


1018 PLOT X,Y: GO TO 10 

2ees INPUT INVERSE 1; "HH"; INVERS 
F @;"ORIZONTAL OR “; INVERSE 1; 
VU"; INVERSE @;"ERTICAL "j Ks: 6o 
SUB 8ana 

2807 INPUT "ELECTROLTIC? ("; Inv 


ERSE 1;"Y"; INVERSE ae “jy INVER 

SE 1; "N°; Pe hs 2; ";Z%$: GO 

nee Beve: z$="Y¥" THEN GO To 2 
2 

2610 INPUT “VARIABLE? ("; INVERS 

Ei,;“Y"; INVERSE aes “"; INVERSE 

i: °NS; INVERSE @;") ";Z%: GO SUB 


6808: IF Zg="y" THEN GO TO eefa 
20is IF Ks="H" THEN DRAU @,8: DR 
AW @,-16: LET X=X+6: LET Y=¥-2: 
PLOT X,Y: DRAW @,16: DRAW @,-2: 
LET Y=¥Y+8: GO To 2 
2020 IF K$="U" THEN DRAW -8,2@2: D 
RAW 16,8: LET y=¥+6: LET K=x4e: 
PLOT X,Y: DRAU ha @: DRAY &,2@: 
LET X=xX-8: 6O Tao 
2258 IF Kg="H" THEN PLOT x-4,Y-8 
: DRAW 14,16: DRAU @,-2: DRAW a, 
2: DRAW -2,0: DBRAU 2 e: PLOT x,¥ 
: GO TO 2815 
2062 IF KS="U" THEN PLOT x-6,Y-4 
: DRAW 16,14: BRAU -2,.8@: DRAU =z, 
@: DRAY @,-2: DRAW @,2: PLOT K,Y 
: 60 To 2820 
2188 INPUT INVERSE 1;"P"; INVERS 


E @;"05 of “; INVERSE 4; "N"; INV 
ae @;"EG FIRST? “;Z3: GO SUB a 


2118 IF KS="U" AND Z$="P" THEN D 
RAY 8,8: BRAY -16,0: DRAW 8,3: BD 
RAY 16,8: DRAW @,-3: PLOT %,¥+6: 
DRAW -3,8: DRAY 15,8: CRAY 8,1: 
DRAW -16,@: DRAW @,1: DRAW 16,8 
: DRAG -3,8: LET vr+s: Go To 3 
2iee IF KS="U" AND ZS="N" THEN DB 
RAW G,@: GRAY -16,8: BRAW @,1: BD 
RAW 16,28: BRAY @,1: BRAY -16,2@: 


PLOT *%,Y¥+6: DRAW -3,@: DRAY 16, e 

: BRAY 8,35: BRAY -16, @: DRAL @, 

3: DRAY 8,3: BDRAU 3b, @: LET aves 
co Tro 9 


2130 IF KS="H" AND Zs="P" THEN D 
RAW @,.8: DRAW @,-16: BRAY 3.28: BD 
RAW 8,16: BRAY -3,@: PLOT *+6,y¥: 
DRAW @,8: BRAY @,-16: DRAW 1.8: 
DRAW @,16: DRAW 1,8: DRAY @,-16 
> DRAW 0,38: PAUSE 18@: LET xX=x4+9 
: GO TO 9 
2148 IF KS="H" AND Zs="N" THEN D 
RAY @,8: BRAY @,-16: DRAW 1,8: BD 
RAL 8,16: BRAY 41,8: DRAW @,-16: 
PLOT *+6,Y: BRAY @,8: DRA @,-16 
: DRAYU 3,2: DRAY 8,16: DRA -3,28 
DRAW 3,8: BRAY @,-8: LET *=K+2 


25@8 INPUT INVERSE 1; "°H"; INVERS 


E Ri” gr": THURREE 4: cu". THSER 
hE bs OF Ut hs Guo SLL aeoe 

ees INPUT “VARIABLE? ("3 INVERS 
E a;"v¥"; INVERSE Be "7"; ZINVERSE 
1,"N"; INVERSE @; ",Z5: GO SUB 


Seaea 

eseo IF Zs="vY" THEN GO TO 27a0 
2518 IF KS="H" THEN DRAU @,4: DBR 
AU 18,@: DRAY @,-8: DRAW -12,28: 
DRAY @,4: DRAW @,-4: DRAW 15,0: 
DRAU @,4: LET X=*418: 60 To 9 
2520 IF Ks="U" THEN DRAW 4,@: DR 
AY @,16: DRAY -8,8@: BRAY @,-i8: 
DRAU 4,8: DRAY -4, @: DRAW @,18: 
DRAW 4,@: LET Yy=v¥+18: GO To 9 
27808 IF KS="H" THEN DRAV -3,3: BD 
RAW 3,.-3: DRAY -3,-3: DRAV 3,23: 
DRAU @,8: DRAYU @,-16: DRAY 6,2: 
DRAYU @,16: DRAY -5,2@: DRAL 3,2: 
LET Y=7+8: LET x*=*4+3: 60 To a 
2720 IF Ks="U" THEN DRAU -3.-2 
DRAU 3,3: DRAYU 3,-3: DRAW -3,2: 
DRAYU 8,8: BHRAYU -is, @: DRAYL @,6: 
DRAV 16,@: DRAYU @,-6: DRA @,2: 
LET X=%48: LET y=¥+3: 60 To 4 
SeOe@e INPUT INVERSE 1; ag ie ee 
E @;"“NF of “; INVERSE 1;" 
ERSE @; "FPN ";Z3: GO Sun se0d 
3818 IF Z$="N" THEN CIRCLE X+6,.Y 
,8: PLOT X,Y: DRAU 2,8: DRA @,5 
: DRAU @,-1@8@: DRAY 1,8: DRAY @,1 
DRAW 1,@: DRAU @,-18@: DRAW @, 
DRAYU 4,-4: BRAU @,1: DRAY @,- 
CRAY -i,@: DRAYU 1,@: DRAY -4, 
CRAY @,2: DRAW 6,4: LET X=x+1 
LET Y=r+4¢: 60 TO 9° 


SARUS 


420@ INPUT INVERSE 1;"H"; INUERS- 


FE @;"“ORIZONTAL OR "; INVERSE 1;" 

VU"; INVERSE @;"ERTICAL “;Z%: GO 

SUB saee 

4210 INPUT INVERSE 1:;"C"; INVERS 

EF @;"“ATHODE ofr “; INVERSE 41;"A"; 
INVERSE @; "NODE FIRST?"; ks: GO 

SUB 8220 

40208 IF Z$="H" AND K$="C" THEN D 

RAW @,6: DRAY @,-12: DRAW 2,6: 

RAW 7,-5: DRAY a, i2: DRAW -7,-6: 
DRAY 72 6: DRAY @,-6: LET X=xX+7: 
co To 

4030 IF. gee “HY AND KR="A" THEN D 
RAY @.6: DRAU @B,-1e: DRAY 7,8: o 


i ; a 
RAU 2, 32: DRAU @,6: LET X=K47: 


4248 IF Z$="VU" AND KS$="C" THEN D 
RAY 6,8: DRAY -12,8: DRAY 6,8: D 
RAY -6, 7: DRAY 12/9: DRAW -6,-7: 
DRAU 6. 7: DRAY -6,8: LET Y=v47: 
co To 
40508 IF. "78: “U" AND KS="A" THEN D 
RAY 6,8: BRAV -12,2: BRAY 6,7: DBD 
RAW 6,-7: DRA -6,7: DRAW -6,2a: 
DRAW 12, ,@: DRAW -6,8: LET Y=¥+7: 
S520 INPUT INVERSE 1; "HH"; INVERS 
E @;"ORIZONTAL OR “; INVERSE 13° 
VU"; INVERSE @;"ERTICAL “;Z$: GO 
SUB Bane 
S5i@ INPUT INVERSE 1;"P"; INVERS 
E @;"05 of “; INVERSE 1; "N"; INU 
ERSE @; "EG FIRST? “; KS: GO SUB 2 


SSfz IF ZH="U" AND Ke="F* THEN 
RAU -7,0: DRAU 44,0: PLOT X,¥43: 
DRAW 3,8: DRAW -6,8: DRAW 3,2: 
LET Y=¥4+3: GO To 9 
S530 IF 7$="V" AND K$="N" THEN D 
RAW 3,8: DRAU -5,@: PLOT x,Y43: 
DRAW -7,@: DRAW ia,e@: DRAW’ -7)2: 
LET Y=¥43: G0 TO 9 
S540 IF Z$="H" AND Ke="P" THEN D 
RAW 8,7: DRAU @,-14: PLOT K+3,¥: 
DRAW 8,3: DRAU @,-6: BRAU 2,2: 
LET X=X%43: GO To 9 
555@ IF Z7$="H" AND K$="N" THEN D 
RAU @,3: DRAY @,-6: PLOT x43,¥: 
DRAU @,-7: DRAW 8,14: DRAW a,-7: 
EP 2 XktS: 6G TOS 
BEBA THFUT GHPERSE 6.94; eters 
Ea, UU SUN UR Oo. THM RSE 1.” 
W"> INVERSE @;"ERTICAL ";KS$: GO 
SUB aaa 
6012 IF KS="H" THEN DRAW 14,7: L 
ET X%=X+14: PLOT X,y¥: GO TO 9 
6020 IF K$="U" THEN DRAU 7,14: L 
ET Y=¥+i4: PLOT X,Y: GO To 9 
6500 INPUT INVERSE 1;"H"; INVERS 
E @;“ORIZONTAL OR“; INVERSE 1;" 
vu"; INVERSE @;"ERTICAL ";Ks: GO 
SUB seen 
6512 IF K$="H" THEN DRAU @,4: DR 
AU @,-8: DRAU 1,8: DRAU @,8: DRA 
Wo1,@: DRAW 18,8: DRAU @,-8: DRA 
WU -18,@: DRAU i@.e: DRAU @,4: LE 
T _X=x3+13: GO TO 9 
6522 IF K$="U" THEN DRAU 4,@: BR 
AU -3,@: DRAY @,1: DRAU 8,@: DRA 
W@,1: DRAU -8,8: DRAU @,41: DRAU 
8,@: DRAW @,18: DRAU -8,8: DRAU 
@,-18: DRAW @,10: DRAU 4,8: LET 
¥Yevs13: Go To's 
7eee copy : ca To 9a 
B@2e FOR Z=1 TO 7: NEXT Z: RETUR 


H 

geee cory : GO To 1@ 

9008 S7TorF 

9999 SAVE “circeketch” LINE 1 


PICTRANS 


This is a] f = 


you only want 


and it does 


gour computer. 


a 
alances wour ete patins? that play games or 
the fun. Type. in thi ook your missing som ef 
Se. ESS SENS Progra end Just gnteh +. 1% 
. - 
: ; S68 REM zs Set & Xt) En8pe 
12 REM #54 PICTURE TRANSFORMAT pOant© te vero foc tite cio.” 
ION PROGRAM zs 570 FOR i=8 TO points pte 
Ze: S88 PORE n+f2i),8 
SO FEM #4 Clear eres for wechi S22 PORE (n+22ic+ii,e 
née Code arid tables s+ 682 NEXT i 
48 CLEAR 45855 61a: 
5S@ REM +4 Load the wWiaechine cod S28 CLs 
hemoru (BAGG upwards! 63e@: 
WE liia 648 REM == MAIN SHAPE LoorF s+ 
RE 272 65e@: 
ZLEpe point), lines, fhe 668 REM = xepresent SSPE: ven 
. EXt Share | . 
sZSShapes 67@ LET xsy 
= Byte tebles Start at 622 PORE 45a78.x 
c B28 LET y=x4+i: IF ysshapes HEN 
i 45152 LET yaa 
Lee S+hspoints 788 REM £2 Set start coordi -7aete 
i3 =c+ rOantsS & fer fhape x 
Ad =k +: ines. Fi@ FOR i=8 To points 
1s sPerepoints f28 POKE (psi) PEEK (s4me- 424 
16 tep tepe-1 zi 
17a bk ogni Poimnte-1 738 PORE (p4f2i¢4),PEEK (tsenei¢ 
138 i ite iTS i e=xt1i 
log: 748 NEXT i 
288 RE Poke the table etert 73e: 
Locati 760 REM #2 Mein transform =-sFe 
2ie Fo 45865 ,.INT tb Loop 
E 45864.INT_ (L-PEER fa 778 FOR k=@ To steps 
BEG PORE 45067,INT in FSG REM s+ Call machine cocs 
E 45056,INT (n-PEEK (4 798 RANDOMIZE usr 45aea 
5 45@053,INT ips S88 REM se Delay loop at stzri 
E HT tp-PEER id GF trensforketion 
z 45074, lines+ HiG IF k=@ THEN FOR j=1 To ee: 
z= 45075 ,peints NEAT J 
= 45077,INT (c S28 NEXT k 
E T {c-PEER (4 232 60 To 67a : 
= 45875 , ti ; 
= = . 
200 REM == Read the c B68 RF DATA 2 
For points iff each fhs = : ie 9,8 we 
300 FOR G20 TO points So ace 158 ,10,50, 
S10 FOR j=a To shapes-1 an ve 58,158,198 
rns % 7 r, Ata Sait a = ax 
BORE id yx {222 DATS @ 50.10, 52. 
Sore re Yeds er 48,118,786, r, , 158,56 is, 
EET ra = S88 DATA 28,138,508 .568,78, 
= Q rar a eae Cee a Sak LH: ac0,.S68,c08, fe, 
RE ; Po eee ere »2%,58,38,70,150/90;30)100 
eS . a Fon? eee DATA_188,78,90,58,70, 
ee : . 78,58,58,72,152,98,52,130, 
RE : eee 852 DATA 7@,52@,98,108,150 
Ba i me TELE G8 -88,58, 100,58, 186,50, 160, 3 ; 
y= ~ 
UNE 940 DATA 188,3@,90,130,150, 258, 
“FOR i=@ TO points 148 ,58,50,158,52,108,98,138, 28, 
FOR j=@ TO shapes-2 "656 path. 445. < Be tae ora 
LET k=j+i: IF k=fhapes THEN S230 100 tod ede saad ee See: 
R=2 : ase 2182,150,110,108,508,122,i14 
{eT wo f{PESe <. = HSehi -F= ed ae 
sonsisasji)setepe 3 eo ae, 18 98452,258, 152 = 2..1 
LET cysiPEERK (£4meie¢zekei)- SO ,10,138,152,128,100,50,15e 152 
Bee ee a ee ae '870 DATA 100,10,150,150,15¢ 10, 
SE Peseta a hs ait 08,10@,152,152,130,150,150,1=2,15 
PORE (c4+mwti¢legtl),INT tcys+ 2.58 


960 DATA 52,38,150,150,1308,22,€ 


S10 NEXT j: NEXT i @,30,150,150,158,158, 150,130 150 
See: ; 

S30 RE Se VioUs Shape 292 DATA 50,70,110,130,130,~e¢ 
bheer ta'eeng ee gee 50,6@,132,136,140,150,110,152,14 
540 LET y=o @,20 

5a: 


4) 


1280 CATA 1288,92,118,100, 138,122 
a 2188,138,150, 150, iia, ioe, 


ea 
18129 CATA aad gah 138,58,70,18,6 
ae 130,708,138, 60,150, 410;50 258,11 


faze raee 189,128,118, =e 258,18 
a 


@.150, ,i80., /148, Pte ©. 53,5 

1ase bard 68,110,156, barat Poe 

@., 350,06 66 So 08 see ee ,18a 

Lea e cake 2,8, 2,8,8,8, 28,2 

e, So: 7a 

i Mf €.8,8,6, e, 

a a Ee 

i Mf eee @,8,8,41 
e Q ae 

i DH 1,1,2,2,3,3,4,4,5,5 

é. eae 2,9,18 

28e8 Ci hy ple 42 1S, 1385 
4, eal 

ie oD :i7,17,18,138,16 

1: 

1: 


TT sr rn 


nyt bs Bs Tb Bs 
sf ; ey ice 
i 


Wi 


Line FE 
2Si8 F 
Pie 
Le: = 
is re 
+ D 
i C 
i C 
i: C5 
i caRT: 
i CAT 
a. CAT 
a Fe CAT 
a fe © DARTS 
1228 CATA 
si CATA 
; DATA 
1 DATA 
2 DATA 
CATA 
DATA 22 
CATA ZE.2 
i DATA @,85 
Ge DATS 42,15,176,2: 
1448 DATS 7R,25,78,127 
1458 O87TA 2e27,21,14,176 
1468 GATS 12,25,262,32 
1422 DATA 42,16,176,25 
1428 CATS 78,35,78,225 
1588 CATA 285,189,176,281 
1518 


1528 CATA 197,285,199,17 
1532 DATA 193,17,1,12 
15428 DATA 128,145,48,4 
1550 CATA £21,21,237,68 
1568 CATA 71,121,149 
15728 DATA 43,4,29,290 
1528 DATA 237,68,72,176 
1298 CATS £208,121,184,22 
1588 CATA 86,1907 

1618 DATA 34,4,176 

1€28 CATA 46,08,56,4 
1628 Dats 181,187,72,71 
1648 OSTA 34,656,176 

1658 OAT $6,128,292 .63 
T5668 CATs 113,125,129 
1678 CATA S6,3,184 

1688 cCatTa 56,8,i¢4,111 
165@ DATA 237,91,4,176 
Lifes BATA -24,5,111 

1iFie® DATA 22, ,81,6,176 
i?v2e@ bata B2?,124,1358,1¢ 
1738 CATA 125,131,111 ,1 
i748 CATS 285,325,176,1 
1758 CATs £227,37,32,220 
176@ CATA 225,281 

177 

17382 DATS 125,238 

728 DATA 31,55,5 

1289 CATA 15,17 F »ed5 
12438 CATS LPS gee 5 iF 
128 CATs Cah prs 

1E28 GATS E38,155,172,7 
1248 GATS 7,885,124 

135e@ Cats 220,7,71,4 
1368 CATA 62,254,15 
1272 OATSA 16,2553,71,26 
1320 CATaA 162,47,18,281 
1288 CATS 52,159,376 
1388 CATS £45 ,245,61,262 
i838 DATS So,f2,8,35 
1828 CATA 42,12,176,25 
1238 CATA 125,42,18,176 
1048 DATA 25,119,168 
1858 CATS 42,12,178,25 
1568 CATs 126,42,10,176 
1878 CATA £5,119,241,61 
1568 DATs 27,213,655 
i588 DaATa 55,253,176 
22888 DATA 22,.8,8 
2818 DATs 6,8,41,23 
2@2E DATA 43,131,825 
2838 CATS 16,245, 
2848 CATA 22,176, 
2858 CATs $1,22,176 
2vee PATA 22,8,282,35 
2078 CATS 25,63,77 
BGA CATA 42,12,176,2090 
2GSa OATS 25,18,65,134 
2188 CATE 119,35,3,1@a 
2118 Para 63,134,115 ,241 
21ee CATA 61,32,172,201 
2138 CATA -og- REM #4 Bu 
Cr data value 
eco CLEAR - SAVE “pictr 
E i: PRINT “REWING TAPE" 
PLAY TO VERIFY": VERIFY 
Hr "OR: ; 


elem) 2 a 


et 


T TAB 9;PEEK adqg;: LET add=add+i 
: NEXT 9: LPRINT TAB 941: 
S@ NEXT n 
Fas B 
Oo 42-5 
a = 
14 fF 
is F 
46 F 
17 F 
48 
28 CL 
3@ Lo 
Si ST 
awide 
Ree 
G*1@ FOR n=84738 TO esecs 
po 22 INPUT % 
© SQ FOKE n,e 
v 43 FRINT ne 
S@ NEXT n 


eho y fein 


fhe ae ost e 


64 COLUMNS WITH 


. 


. columns in 
Bou ceil chennie tl 
d 

2; "SLUG" 

CUBLE size you 

el = 

LOUTZ 

fs 


Ms 


10 LET a@dd=04735 

20 FOR n=l TO 123 

GQ LFPRINT add; 

40 FOR g=7 TO 27 STEP 5: LPRIN 
d d 


enc 


ut 


sf 


eee 


CTRUM POM 


64733 
64733 


64743 5 


64748 
64753 
64758 
64762 
64768 
64772 
64778 
64782, 
647388 
6479¢ 
64798 
64503 
64308 
64312 
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on mn i ff 
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(i) a co 
ao f& hi 
m 


mM hy 
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1) 
15) 


oh» 
A OO & 
be) 


3+ 


64983 
64988 
64993 
64998 
65803 
65008 
652013 
65218 
65823 
65828 


65033" 


652838 
65843 
65048 
65253 
65256 
65263 
659868 
65873 
65878 
65663 
6528388 
65993 
65098 
65183 
65188 
65113 
65118 
65123 
65123 
65133 
651368 
65143 
65148 
65153 
65158 
65163 
65166 
65173 
65178 
65183 
65188 
65193 
65198 
65283 
65208 
65213 
65218 
65223 
65226 
65233 
65238 


ponmganwmr wr MD om m 
L) udr ww hh & Oo Ww 
to io om WW & 


i] 
a) 
rs 


ba 


morn 


65243 


65248 


65253 
65258 
65263 
65268 
65273 
65278 
65283 
652588 
65293 
65298 
65383 


65303 — 


65313 
65318 
65323 
65328 
65333 
65338 
65343 
652348 
65353 
65358 
65363 
65358 


i32 


nar ae 


32 8 14 ié 
8 66 36 128 
i62 686 4 6 

228 e224 4 i728 
i6@ i2 i172 178 
a 166 136 64 


42 96 8 iv2 
ise 68 136 136 
8 249 1535 i144 


My PERSONAL Compurer’ Vi 
1S GETTING INCREASINGLY # 
IMPERSONAL.. Z 


anes 


: wee can SCROLL your listing on the monitor 


Into ee ws 


“VF: wou have a 


modem and wee to 
CompuServe, you can obtain quick news from Sky & 
Telescope magazine o come nova, 
discoveries. ‘You mau eleo get a Sls istines jj; 
rom the poor tee omputin Log _on, 
and at gnu! prompt, tune GO SfaceFoRUN.? Thee 
uou select a base and tupe READ 


SKYTEL. TEX in jg eae thy peace thi 


With This program you will be ebic ‘e create a 


darker’ character image on the an 2648 
dela gap it bd Hou AUR the program you can Lt 
: afe abo RAN-T o turn it on’ 
; PATER. *RANDONIZE USR S77BG. To return to normal 
POKE 23687, 68. : 
You use this program for a FADEOQUT when yeu 
CLEAR SCREEN. hen you wis to gm use 
RANDGNIZE USR 698808. You can also use it to 
simulate a crash. 
This is a aid in debuging. With this 
program as the first 9 lines of your program, 


wit 


Tank Line between each Pp oaree line. You just 


Go TG 1 to start the SCROL 


service. 


58 DATA 17 .@,223 ,213,1,9,3,42, 
34,992,536 ,125,167,31,182,18,35, 29 
213,32 ,246,16,244 44,225,37, 34,54, 9 
2,281, : 


2 


LET £ND=({PEEK 23627+2562PE 
EX 23628)}-1): £0 SUB 8: FOR #=25 
7i8 TO £ND-1 

3 IF PEEK A=14 THEN LET A#=A+ 


EXT 
4 OF PEEK Ad3S1 OR PEEK A=13 T 
HEN PRINT CHRS PEEK A;: IF PEEK 


7 REN tine B sub 

8 IF AdEND-1 THEN STOP 

s 1R22)3 (PEEK (Asi 
32255);5: 


Do you have CALL HAITING ? 


4 heave b 


getina GARBAGE or a 


rad een 
dieconnect while on line with your MODEM, it may 
be an in- Soni tne call “disrupting- the 
transmission. Their is a .wau te tempor arity 
cancel CALL WAITING on 2 Ps tae Bu call basis. 
BEFORE uow on a ic BUTTON 
TOUGH - TONE set dial «78 then _uour punber oe 


out? dial i170 Liem wour- cater, 
will reset automaticallu when wou 
phone. 


hane-up the 


TAPE TO TAPE BACKUP 

This progran is worth its. 
weight in gold. With if you will 
he able to nake your backup 
Tapes to all your expensive 
oaeograns. It runs on the 2066, 
but will also nake backup tapes 
af SPECTRUM prageans. All 
instructions are in The progran. 


Fle: The ial Tape Inta 
The Ineu he 2805 lFar!. 
And Fe gi Backus Tape 
Fram The OF The #869 
tha cd a" 7 
6a PRI 
Ajuet 
Boeder Dae ix 
The Si len 
>: PRINT : e 
7 PRI 
Rewind 
Run The 
Recarder 
Start TH 
is 
3 5 
. = pt 
2,1] 2 
4.2: 


THANKS TO LARRY KEMHY + SUM 
MAGAZINE 


SCREEN COPY 


: 


This program from SINCUS witt 
StOmP uGur program, Make a Screen 
COPY Gh your 234 Brinter, F 
cont. the program. IF you hav 
“ BYTE POUERY ithe magazine an 
lapel. You can make a  HARD-copyY 
OF the Program instructions with 
this utility. ALL uau have ta do 
is JUSEt LOAD and RUN this 
Program, then LOAD your “BYTE 


POWER” tape, When YGU went a 


copy of the pase sent to vyaur 


Printer, ail you have ta do is 


hit BREAK ¢2 SYMBOL SHIFT 
together, 
5 FEM COMPUTUS INTERSRUPTUS 
18 RES By WES BRZOFOWUSKI 
SINCUS 
is RES Cause a SCREEN-CoPy 
whem BREAK & SYMBOL 
SHIFT are pressed at 
the same time 
38 CLEAR &5a22 
42 FOR j=t5824 TO 65228: FPORKE 
Js253: NEXT Jj 
S28 PORE 65221,195: PORE 65acs, 
6G: PORE 65825 ,.255 : 
S62 FOR j=hSlsi TO 85314:..REAG 
EK: PORE 3,68: NEXT J 
7@ DATA 62,254,237,71,237,594,2 
@1,245,197,2413 ,229,62,127,219,25 
4,246,224 ,254,252,32,6,243,6,152 
605,5,18,225 ,289,1595,241,195,56 
4 


SLau 
T 
18 L: iu message" 
22 Fi = : 
2a F x fK >: PRUSE 2 
43 BEEP .o5,.5 at ea 
SQ NEXT KO” 
T/s 18289 

19 LET As o 
22 FOR K= 
= FRIHT 
49 PRUSE 
Sa NEXT K 

No self fFetpecting computer 
woutbtd ever Brint this stow, But 
abil Scieance Fiction movies have 
the Printing slowed down For 
dramatic effect. So their is na 
reason ror Your progrsms nat 
being dramatic also. 


nw 


Writ tne Mew TIMee size rod 
NOW SWELL LESLE ene 2 CEYM cor: 
rcaomitac, Some o£ ue S 
Wones colts. West whet if CEes = 
WHerz cid it come Fram? Eng wr 
22 327s reletion ts Re. oS 
CF rt, o CONTROL F a F 
MICRQFROCS=Sice, iz ba ce ee 
Fst.em sch 22 Mee: : anc t 
n GEM. Ti £2 not, 22 one Wes 
qs K, 8 FOsSraming Lingueze, 

To anmewer the xX Tins 
questions we muzt batk Lo 
1273,°Tnét vesr IN Me 22 tre 
Firzt praczszzar ts bit dose, 
Saon it wes £ ar 3 Ets tne 
423228, Whicta 1: a2L2G 3 a Bri 
pcos for,5c0c0n artir, the = Get: 
praczitzarce were AtTasguced, 

“Fire? the EBSaS = EG=Ia,E = 
and fFinatts, tre ee - Ti Wet 
resliied that thez2 Power Fut 
Croc their time) Fracesiare 
would meed came mesns G 3 
Etandsardizeg contrat. Tri S7s 
Gary Kitldstt, a imp loaves ar 
INTEL developed what we now kiow 
@2 Cerny, INTEL eéprarentiy Wes 
net imnterzted if this 
development, £0 Kitldatt Ler? 
and Farmed Ris own Caomrerts , 
which is maw Digital Research, 

CFrvH hae é etructure Which 
MakEt it POSEibLEe ta transplint 
tO all Z58 mechinezs., Thrée bes-c 
implementations are: 

c (console command pProcezear) 
Rezds and interprete commande 
Feom the keuboaard, 
BONS (basic dizek operzeting 
S'32tem) 
Utility reutines detigned x 
MeneSe the diztk Filet Clace S 
bLOCKE, VECI PING. alLboz ia 
amd relessing storage grease 
FLQS (basic ingutvoutput system: 
FOULINES Which camnunicate with 
Physical devices attached ta 
fystem (printer, modem ect) 
These are Laid gut in memaccs in 
SsQuence With the use2ere Braccen 
Eterting at hex 1ee. thi: Le 
termed TFA (transient Prsaren 
erez}. Cnly the EGOS saurce Cade 
hz to be EPEcCIifFic to the 
Méchine, 

If CFe/M it £ Cld Why 12 1% 
Ets tl eraund? Ezeczues oF gee. Ss 
eS it het the most Eartwere im 
the “Fublic Domein". Tnere ie é 
CFy/M besed EOrtWwEerée for ect 
ePrlications cov cen think Cr, 
and some vou wauld never think 
Of. And mozt imeartantlhy it. hee 
mcozt all GF the buce ironées ove. 
Also, elmott every prosremming 
lengusse is implemented On CFYM, 


= Fas 
Tikes 
19 SANE 3 
eS CIM Assi 
SQ PRINT AT 2,3 ONGOM BRIGGS 
49 (3 LI 
45 PRI 
Sa Fi 
THE 11; 
;7THE 1; 


To $a 
IHT (RNDS5i41 
(28+A UNI) 


3 
= 
= 24; "NEXT",AT 22 
a: 
2 o@ LET pROrP= INT CRANDS (6 7-N +H 
o 
FO IF A(DROP)<=8 THEN GaTO isa 
22 PRINT TRE 25;A(DRGP) 
Sa INPUT OR 
oa Li =INT (GIR-1) 73 
25 M={th-ii 7s 
i¢ JSH-THT M+I-INT I 
28 LET Nis=N+S2¢(INT I-1)+34(I-1 
3 
Ga DIR<2 OR BIRO OR UiB.d 


* OZ 
PamUaaaaaneann PU PTUPAPDPD CPSP Reh PH PLD LP od Sl oie ol Pl ol sl sl oll Ol lod 


HO SO A 


OR ae THEN GOTO 186 
(Hi) <.=8 AND Ni<=5a THEN 


Na> 2-68 THEN LET ACNL) =-23 
eee (25+A UNI) 


a) 


PRINT AT if.e¢ 


FOR J=l Ta 7 

NET J 

| ale M= (DROP - Lvs 

Ag=" 

GOSUB S22 

IF N1=OR0f THEN GoTo saa 

IF Nil:62 THEN GOTO @aa 

LST SCoRS=19S(S-INT Ti+iaei 
2-INT I}sti-InT 2) 

400 IF AtN1) =A(DROP) THEN LET 3 
CORE+23 


ET ALDROP) =o 
420 LET =N1 
4142 Sato" iss 
Sev PRINT AT S+INT M,1G4+S5=(M-IN 
T M)>AS 
Fig RETURN 
Sao PRINT AT 228.15: "YOU HAVE FA 
LLSm “; TAB 13;"IN THE UATER” 
S10 FOR O8=1 TO 160 
cis NEXT 8 


AT £9 
Tas 2s; = 


CEL CES se 
i 


bes GoTo 1582 
S88 LET SCORE=1900 
310 GDSUB 3u0 


1s CLS 
ies 


3 
rs) 
3 PRINT AT 413.4; "D0 YOU UANT 


TO TRY AGAIN"; AT 21,8; "CY OR De 


819 LET ZS=INKEYS 
-829 IF Zs="¥" THEN GOTO Ss 
Bes IF Z3="N" THEN GOTO asa 
829 IF Zs="" THEN GOTO 319 
880 LET A(1) =A(1)+5CORE 
910 PRINT AT 11,22; "SCORE “;S5c0 


ae PRINT AT 13,22; "TOTAL “;AIL 
925 IF SCORE)18@00 THEN LET UR=S 


19@8 SAVE “BRIDGE” - 

1919 GOTO 11328 

11990 PRINT AT 2,0: Eee 
SS 


Laas SSS INT = =r 
at = 
4129 PRINT * 2S saz 
= o” ie 
112s PRINT ™ Es 
1128 eo _ ss 
1235 BRIN 7 Ene 


“LONDON ER 
Oeete 

FOR F=1 Ta 

NEXT F 

FOR F=1 Ta 3 

SCROLL 

NEXT F 

1178 PRINT AT 9,9; “THE GAME CONS 
IsTs OF A GRAPHIC" 


i140 ~SRINT AT 14,3;" 
78 


A175 PRINT “SRIDGE,AS 


1168 PRINT “THE ROADUAY MADE UP 
OF A RANDOM" 

182 PRINT 
1285 PRINT “HIX OF 'THE NUMBERS 1 


L1a7 PRINT 

i198 PRINT “REPRESENT ING FIVE Tr 
PES OF FLAG-" 
iige2 PRINT 
1195 PRINT “ST 
RED TO cross" 
A197 PRINT 
A286 PRINT “TO THE OTHER SiIDE,8u 
i225 Far Fe i TO asa 

1219 NEXT F 

4215 FOR F=i To 22 

Tee2 SCROLL 

iz2e5 NEXT F 

1232 PRINT AT 12,5; "LONDON SBRID 
GE Is” 

1235 PRINT AT 12,7; “FALLING; AT 


GHES.YOU ARE REGUI 


poses “DAT 14,473 "0O";AT 15,12; 
ere is, 295.°N" 
13 CLs 


iBas PRINT AT 2,0: 
Qu A NUMBER, PERHAPS" 
124.6 INT 

i258 PRINT +-THIS TELLS YOU THA 
T ONE OF THE” 

12S1 PRINT 

1255 FRINT “TrYPS 4 STONES IS ABA 
UT TO FALL ” 

1256 PRINT 

1259 PRINT TAB 7; "INTO THE RIVER 


“I WILL GIVE ¥ 


1255 PRINT 
127 ao 
41275 FRIN “IN SELECTING YOUR N& 
xT MOVE, you" 
76 PRINT 
1230 PRINT “CAN GAMBLE BY MOVING 
ONTO A 4” 
12341 FRINT 
1235 PRINT "OR BY PLAYING SAFE A 
NO SELECTING" 
1236 PRINT 
1299 PRINT TAB 6;"A DIFFERENT NU 
MBER.” 
(295 FOR F=i Ta 15a 
1388 NEXT F 
1985 FOR F=1 TO 22 
1318 SCROLL 


= = 4 
= FSi Ri i= 
S 232352257: 
SS SeSiisiz 


IN etl 


1315 NEsT_F 
1223 PRINT AT 
ROMOVE BY FOLLoUTNE" ad: ! 


“THE NUMBER GRID UNDE 


lle2l PRINT 
ites PRINT 
Ro“ IMBUT" 
izes PRINT 
G28 PRINT 
UR SCREEN" 
1231 PRINT 
1232 PRINT 


1f05 PRINT _TAS 


3,9: YOU ENTER you | 


“IN 


“THE LOWER LEFT OF Yo’ 


YOU ScGRE"” 


Le +8 PRINT TAB 
“1a” 


138.5-* 
1iai PRINT 
Lids PRINT 
13; ° 


iss6 PRINT 


S38 PRINT TAS 


13 sa" 
: PRINT 
= PRINT 


Fe Lae 


ee 


Ss 
GoTo 12 
PRINT ne 


an 


Hey SP ee ft tn wh 


rei we 


ens ey 


i] 


2; "MOVE"; TAB 14;-" 
4; “FORUAROS"”; THE 


4; “SIDEYURYS "> TRE 


4; “BROKUARDS"; TAB 


“YOU TRIPLE YOUR Scar 


2. ° FALL” 


FoR. es Bo Ta isa 


42.4: "00 You WANT 
2AT S2.a;"¢" OR MI” 


60To 
GoTo 


THEN GOTO iSia 


ms 
os) 


HL che 


inn 


“Tp Lm 


tg 1/5 


| This pragran_uill allow gou to peint large are = 
banners on gour Z8B1 or T/S1000. The progran is Sis a 
nenu driven and requires Little explainafion. Sif 


The one exceplion to this. ig the feature thal 
allous gow to define gour aun 8x8 block 
characters. When gou enter this partion of the 
 progran, qou will see a grid with leffers across 
the fop and numbers doun the side. Ua notiving 
matil gow are peenped tu. Tivie section af Che 
— peagran fakes a bil of Tine fo initialize. Yau 
will then be expected fa nave fhe flashing 
acferisk around Che getd, depagdifing blac} 
biacks uherever gan Vike. acing Che “2 keg. 
hese blocks mag be erased uwifh The oie keg. A 
little peattiees will make Gf ait cleae fo qe. 
While Che Usd hiacke da aaft atlau defert ted 
geaphies. Chey will allow gou to define smal 
leffers and sinple logos. 
The harf of Phe progran igo oa machine Lanuadge 
eoutine in the first REM Line. Type in a FEA 
statment with 171 characters and PORE in the 
ga lis fron the fable using ang decinal based 
eode lnader. 
Plag arsund wif h The peogran and gon wi lf 

find if is capable of peaducing some mice 
banners wilh interesting Peatures 


Fe Ca dT 


Daas oe as as as a a 


TCT Th Cn Fs CO be CO TOT bee 


mcnen 
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ee ol dt de de Jae fede fle di foots de fide fede fe fle fede fade pode fe fo dt de pode fide foe edt fide di de foe fle di fd ae de fl fe foe fede fab dt fet fale ode 


foe fede fess fete fate fo pate fate fate pe fate fate 


ott fete pte pote pa 


so) 


Ce) 


tu1G 0) 


3 
o@ 


es fede ek po foe Pod es fol feels fe felt fk fe etek fot fede lt ee fd le foe lt fede leo fe fe ffs fe ot fe fe foe fo 


[eo peel seed sod ed Sel ed sd pel eed ed ed se) 
OTC on oe tet 
Qo tO 0) 


ree en oe oon) 
1h b+ 


A bet ETD fete fete foe T] pe 


w]e Fay tes 


ake ond 


My 4 
Le 


WD fem 128) 
nM. |e 
ee SL 


Cet 
fogs 2 UE, 
a 


os ed | . ET ae 
a ir Wd (Ce Uf fi ea rt i) ce: i 
BOR Go We ee te Zo wml Mle Uo ol Lh. ea De ne ea 


COOK RY Ba | 


VSO SG 
aA es es es be st I : WH SSI { Inu th 
BYP CU COIS CSU RIUESEREESEnnd nk mea Zi acai foe HRS i Idee ye fe} ef oof 
sed ef ed ref ed ed ced eft och ed ch ed ef ed: eh WAN 4 IIs WLU ee oe 


es 
wu 


2 ‘ Th) co LI | ap iam : 

WIT "Ae ee cel ince WH cE aL WI J. MICE i sare mY 

Mm UDenie CL UC. ae ha oe CL inj bed L. ce tt oe A eal REV IL, (LOLS A a ar) 
Ire a ii a 

ea ey SUR RSSLOGO ES af MS AST oe: 

Doe Bt) cera rhea Ww ra Md ed 1 : } Wh TT Sh ed eel ee 

ed ed OOF * 4p ea ed TOO bd a a ee pe 
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GL REAL-TIME CLOCK 

I wonder how many GL owners are 
may already contain a working re 
aid of a battery and a courle o 


aware of the fact that their GL 
al-time clock which. with the 
f diodes, may well Give the 


battery-backed clack sa  marrs have requested. Dennis Briggs ..- 


tifPed me aff to this, and as he has not yet made his findings 
Senerally known, I will Pass oan what I learned from him and tay 
Own exPberience an the subdect 
The ZASSHS chifF in the GL already contains all the circuitry 
for mainkainins the come and date when the GL is switched aff, 
excert fir 2 ace and 2 couPle of diodes. Sinclair okwiowely 
intended to “ovide the bathery back-up as the board has 
Preaawision For toe least one of the diodes. bub this has been 
replaced be a wire ink. It is easy to 4 
comPonents and det 2 .0f how to do tris are 


“at the necessar 


I. susbect Sinclair did not incorPorate the batters back uF as 
it shows some lack of reliability on same machines and he did 
neh wank ans more returned for service then he was oe Sabipen 
Setting. Some of mu friends and IT have fitted saa Sane 
e 


diodes to faiwe tba 4 pea reasoanak] SINTTeE SS. OF othe Five.) Euro 


aPPear to work LAA reliably, one about S52 and Sing pee 
tuo abouk FSS of ne time. I would be interested to know how 
favs wore can be made toa work. Ib arPeare that the failures 
which doa occur Ber oan Power uP oar down. IT have monitored the 


— 
‘Oe 
1 Th 


crystal oscillation while the chif is under bathery Power and it 
seems absolutely reliable on all the GLs. With a large caPacitor 
across the batbery supply. only a slight change in mean level of 
the oscillator can be observed. From this I presume failure ta 
faintain time is due te Garbage getting into the clock registers 
due to lack of isolation of the master chif during the Power uP 
or dawn Phase. If a way of deselecting the chiP during switch on 
or off could be derived it should work 188%. To do this is 
Li ts t OF 


in low should solewe the Problem, 


itr 

“> 

iT) 

iit 
iT 

et mi 


aPPears that Pullin 


Lrndetecd: man a7 2 fps. modified at: dic 1S. jaclate the master 
chiP if the res mois held down durires switch on oar aff. 
unfortunately i ob seem to Give caomPlebe success an other 
machines. GEeiic clair kriew more deve loPment was reduired! 
As the addition o battery and diodes if relatively easy if 
BEETS pus tho-whi le 3 it if sou like this feature - there 
Seems So0d chance Mma aork oon youre EL. 

To install the comPonente : 

{1.35 Cenneck twa eae tube alkaline cells in feries. I soldered 
Wires to mine but beware if you do this as alkaline cells: may 
exP lode if Eoenhcakcd: Cl used a suitable Plastic battery cLliP 
from Fadia Shack - H.L. 3 

(2,9 Femowe the Large chif marked ERESES + CSS oon the circuit 


Take the usual 
chiF iz out eolder 
‘ed bands) oof tue 
eo idee awire Ckblack 


board and bend out Pin 48. the tor FH 

Frecautions against static damage. Whil 
the cathode ends Cthe ends marked with 
Germanium diodes to the bent out Fin, Also 


(Th 
OSs 
a % mt: 


ee 


for negative? toa pin 28 ¢bottom left> of the chirp. Sleeve the 
diodes and solder the loose end of one to Pin 11 af the chif. Do 
not let salder get down the Fine as all but Pin 48 have to be 
reinserted in the holder. The master chiP usually has tuo 
resistors soldred to its Fins and layinz oan tor oF the IC 
already Cabsent in my machine - H.L.? 


€3.9 Solder one end of a2 
suitable SroundPoint soa 1 
IC when it is rePlaced. I[ 
1Hauf caf toa the right of 
os, > RePlace the IC. 

S.0 Fit the remaining loose dicde wire to battery Positive and 
ae blackwire from Pin 28 of the IC to battery negative. Fit the 
loose end of the added caPacitor wire to Pin 4@ where the two 
diode cathodes have been connected. 


small caPacitor, O.1° mfd or soa to.a 
s other end will reach Fin 448 of the 
sed the negative end of the small 
re faster chiP as a suitable Sround. 


The battery should be insulated 
mas be Positioned immediately te 
on bor of the tuo smaller ICs. I ou 3 

e ICs to star the batteries moving. {The 

poeeene clip can be sticky Fadded ta a bunch of res 
+ 

ne 


be 
YS 


th 


Vi fuk ey or 


the top left of the houiee: duet toa the riasht of 
conmector. - HL. ? Don't forget to sleeve the diod 


lucky your GL clack will maintain the time until the 
Bil. This should be in about a gear. Judging fram the 


: doen bee the SBG2 chip. If. like me, your are nob soa 
lucky» wou will occasionally need to reset the clack. If 
clock is wers unreliable vou may have toa Purchase wore SAo5 
from Dennis Griaags and trey and find a good one. but as T have 
connection with a other than as a. fellow member of Guant 
wou musth take this suggestion at face value! 
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Bae 
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LET. 
a+ 
e-4: 
147 
1432 
TURN 
142 LET a2=-4: RETURN 
150 LET au=2: RETURN 
Sil LET au=q: RETURN 
SS RETURN 
155 LET ax=-94: POKE 32232,104 
RETURN 
457 LET ax=8: POKE 32382,38: RE 
TURK 
£50 LET a: RETURN 
e391 LET a RETURN 
e282 LET a RETURH 
eve LET a POKE 3ei02,i84 
RETURN 


218 LET ax=8: POKE 22202,85: RE 
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=FN t 7 

413 RETURN 

422 CATA 3,4,-1,-2.-3,-2.1.4.3, 
ci,i,-2,-4,8,2,-2,2,3,2,4,-2,1,- 
3.-4,-2.2,3,2,1,-1,-4.-3 

800 CLEAR 31289: POKE 22675,88 
POKE 23676.127: BORDER 1: INK 


=. 
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: PAPER 1: CLS : GO SUB 2088: RE 
ee 1S0a8: FRINT FLASH 1:AT 12 

>“POKING DATA"; FLASH 8: LET hi 


310 READ a,a3: IF a=0 THEN GO T 
Q 350 


829 FOR isi Tao LEN 43-1 STEF 2 

PORE 44+(i-11/2,162(CODE agii)-4 
O-TSICOOE attiioS7)) 4COLE astiet 
Y-43-TEICOGE agii+i)o57): NEXT i 


: GO TO 812 

O78 CLS : PORDER 1: GO TOL 
1088 FRINT AT 2,0: 

1930 IF (2y2s4+4%55x)>.95 OR god 
O THEM PORE Seive,ite: RANDOMIZE 
USR 32298a.: SOUND 6,6;7,7;3,16;93 


.215°/18,15:12,55:13,3: PAUSE aa: 


‘SOUND a, 8:2,.8: 12, B: PRINT “CRASH 
iss LET score =290- INT (y): 60 T 
GQ igsa 


tOSINT (itt 
NT "Down OK i 
LET scoresInt 
Tad 1esa 
1g5ea PRINT 
A851 IF sco 
N S8InT ar 


toi" seconds 


Hi THEN LET hiszsec 


(2,1) =s1 


go Ta sete. 
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evFeica™ 
isid CATS “QESALIC4TEDSIAL 
@FETEDIFESSaDaZF Sco" 

29 CATA Gesig,"lizaovasge7eisi 
7Oela2ecs SisFscaapzerscs” 
1838 DATS 22422, “TOFS IFSFoEgsess 
BELIALFCS1S231 BFE TDDB Laer 240Deae 
iS49 DATA Z[ESQQES7Evevecsc 
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1558 _oaTA 
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gOS 
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su 


ieaa DATA 2," " 
2080 PRINT AT 2 
TO LANG SHIP": 


2901 FPRSINT “ue > High thrust 
> accelerate 

uo"*" 
2905 PRINT “DoUN > Low Thrust: 


down © lou’ - 
2900 PRINT “LEFT > Thrust Lert 
2943 PRINT “RIGHT > Thrust Righ 
to 
20S0 FRINT “BUTTON >» Cancel Late 
fal Thruvet” 
£20968 RETURN 
CUS0 POKE Ge442,0: POKE 32442,23 
2 3: POKE 32412,2: 
POKE 32424, ait 
3805 STOF 
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This littte pr 
BS Pretty saad ga 
TSE. We dent nee 
Pla the Game, = 
G Uc 2488, an 
c er 83u2 "y 
t umber af 
; "x" gs 


,AT 


THEN GaTo 39 
GOTO 110 
“ILLESSAL"; AT 


as 6 
2 Gi =a 
18 ob cin 
2a 6 6 
Beg BE 
oO Ler. ois 
150 IF E=1 THEN GOTO 45 
8 
FRINT AT 4,.25:" My "= 
Ir €1:3 THEN eaToO 3ae0 
FOR x=i1 To 2 
GSOSOUEB Fiza 
NEXT X 
LET M=5 
IF C(M4)}=8 THEN GoTa cea 
IF CimMi=i THEN LET X=2 
IF CimM)=2 THEN LET X=1 
GOISUS 7S 
IF M>@ THEN GOTO 339 
FOR M=X% TO 9 STEP 3 
IF CimM)=3 THEN GOTO 229 
NEXT M 
LET M=INT (RND=Z3) +4 
IF C(4)<o9 THEN GoTo 27a 
3 LET CtMist 
429 GOSUB L222 
£10 LET C2etn41 
$20 GOSUS Sa3 
420 IF E=1 THEN GoTo «sa 
420 IF Cis=8 THEN Gora sa 
$20 IF G=8 THEN FRINT AT ¥uaec; 
A TIE” 
458 IF 8=1 THEN PRINT AT 7,25;" 
I oVoON" 
3278 IF G=2 THEN PRINT AT = 
You WON" 
$20 PRINT AT 8,23; “HIT ENTER” 


420 INPUT Gs 

S00 IF 65="" THEN GaTo 10 

S19 S7o0p 
op 


S20 LET E=1 

E20 RETUAN 

E22 LET &=2 

Ea LET g=c 1S: 

S60 IF G@=2 THEN GoTo 61a 

STO IF Ctii=G AND C13) =O THEN es 
OoTo Sea 
_ S30 IF C(2)=3 ANC C(S)=5 THEN 6 
oTa Sea 

S30 IF C(3)=0 AND C(7) =3 THEN c 
oTO Sé2a 

B00 IF Cisi=d Ane Cité) =0 THEN S 
o7To S2a 

€10 LET G=c:14) 

€20 IF G=2 THEN GoTo 65a 

G20 IF Cl2)=9 AND Ci3)=9 THEN Gc 
oTa Seo 

6209 IF Cl4)=5 AND C7) =0 THEN & 
oT9o Sea 

€50 LET O=C1a; 


€60 IF G=3 THEN RETURN 

670 IF C(3)=3 Ano C(6)=3 THEN G 
OTO Sea 

aig Cty) =0 ANC (3) =9 THEN G 


€90 LET O=93 
7O0 RETURN ° 
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TOGGLING 


Have you ever been frustrated with a program that had run-time 
errors caused by bad data, parameters, or values? Consider 
TOGGLING as a potential solution. 


Some programs which are designed to receive data from keyboard 
entry endeavor to edit the entered data to Prevent subsequent 
errors. This can be simple or complex programming, it may or may 
not detect all the errors and it can entail quite extensive 
Program code to perform the edit. As an example the simple choice 
or a “Yes or No” option has to deal with the a sting variable of 
variable length, upper and lower case, and the correct characters. 


e.g. 100 PRINT “Select Yes or No ” 
110 INPUT A$ 


120 IF A$ = "Yes” THEN GOTO nnnn 
130 IF AS = “yes” THEN GOTO nnnn 
140 IF A$ = “YES” THEN GOTO nnnn 
150 IF AS = "No” THEN GOTO yuyy 
160 IF AS = “no” THEN GOTO yyyy 
170 IF A$ = "NO” THEN GOTO yyyy 


180 GOTO 100 


TOGGLING, even in this simple example, may be bétter. 


e.g. 100 LET AS = "Yes” 
110 PRINT "Select Yes or No ";AS$ 
120 IF INKEYS =” ™ THEN GOTO 120 
130 IF INKEY$ =(Space}THEN LET AS = "No” 
140 IF INKEYS$ =(space)THEN GOTO nnnnn 
150 IF INKEY$ =(return)THEN GOTO yyuyy 
160 GOTO 120 


The objective is to lock out the use of all keys except those 
that are to be used to TOGGLE the selections, one might want to 
modify the program to display the option available for selection 
or confirmation thru the use of appropriate PRINT statements. 

Wheat if the options were days of the week; Sunday, Monday, 
Tuesday, Wednesday, Thursday, Friday, or Saturday? The number of 
permutations, for editing purposes, is Significantly increased. 

TOGGLING may deal with these parngest tons by setting up an array 
with the appropriated character strings which could be Index by a 
subscripted variable. The main purpose of this approach is to 
enable the programmer to, as mucd as possible, to establish a 
common subroutine for the user to select perdetermined options by 
use orf the space key, to index the array for the correct option, 
and the enter key to confirm the selected option. With this 
approach in programming the option that has been confirmed, while 
it may not be*correct for other reasons, it hes to be - acceptable 
to logical to the remainder of the Program. 


With this basic model and theory the author will leave the reader 
to be challanged in the exploitation or application of the model. 
All comments or discussion on the relative merits of TOGGLING are 
welcomed. 


Paul 0. Kinney 
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; a EN 
12 REM MUSIC MAKER LOADING SCREEN 

22 GO SUA 452 

3@ REM - . This i? line program wiit 
48 POKE 235651,3 Qive you @ nest Loading screen 
S@ POKE 2a562,1 for your programs, doet Place 
6@ LET a=2 ycur program name Bf THE sats 
78 LET sf=ai then, in IMMESIATE MODE, cave it 
S82 CIM nti: With the LINE command to Etart 
96 LET d=.,1 on line 2. Once the SCREEN 
198 FOR x=i To 18 Program if Save: or tape, you 
112 READ nix) fave your program on the tare 
128 NEXT x right after it. 


138 GO To 382 
143 DATA 16,0,2,4,5,7,9,11,12.1 


15@ FAUSE @: LET as=INKEYS$ z 
360 IF a$<°@" OR a$2°O" THEN Go 


To 23¢ 
178 LET a=C0DE a-47 ’ 
198 SEEF d ntal¢o+er-1 . 
198 LET sf=i 

288 POKE 23652,28 

218 GO To isa 

e228 STOR 

230 IF ag="z" THEN LET d=dvi 

248 IF ag="9" THEN PORE 23561,2 
5: FPOKE 22562,.5: ator 

eS@ IF ag="x" THEN LET d=ded 

268 IF ag="c" THEN LET oa=a0-12 

272 IF ag="v" THEN LET o=c4+12 

208 IF ag="“s" THEN LET sFfao 

280 IF ag="F" THEN LET sfaa 


S88 FRINT AT 18,12; " 


Bid PRINT AT 18,148; "dur= “sd 
328 PRINT AT &,10;" 


G38 PRINT AT &,18;"oct= “j;INT ¢ 
a7iz) 

G48 GO To 15a 

‘O5@ REM instr 

G6ée@ CLs 

378 PRINT AT @,¢; "MUSIC FROGRAE 


338 PRINT AT @,@; QUER 1;" 


ee 


3328 PRINT 
480 PRINT "This program enables @ LET a=INT (RNDSdi435 
you to Play” , 4 INK a 
418 PRINT “simete tunes The Le 6 BORDER a 
Noth arf the” © FARPER @: cLs 
422 PRINT “note if variable, as 109 FOR Feta Ta ES5 STEP S 
is the" i= PLOT 8,12 
4328 PRINT " Gctave,” 344 DRAW F185 
443 PRINT 16 NEXT fs 
430 PRINT “zr - halve duratian” 18 Far =8 TO 255 s7zEF 5S 
458 FRINT “x - double duratian 22 PLOT 255,175 _ 
478 PRINT “c ~ down 21 actave” 2&2. GRAY -F,-1is5 
492 PRINT “vw - up 4 octave” 24 NEXT Ff 
4928 FRINT "q - Gur t- 25 PRINT AT S,208; INK 77 "vy GUR 
S@@ PRINT “sc - cherpen next nat TIFEE? ; 
es” 22 PRINT AT 49,45; INK V7; "bu 
Sid PRINT “Ff - flatten next nat YOUR NAKRE:” 
ec" 32 INK 8 
Sau PRINT “ TOF ROW OF KEYS & as Lon epee 
z * oF CL iF KEYS RR 3 is ie 
eee notes 4 LOAD “TITLE 
S4@ PRINT TAS 9G: "STARTING AT Cc’ 
SS@ PRINT AT 22,5; "Press any ke 
y to Start": PRUSE @: CLS RETU 


So2@ RETURN 


Just about every active Sincla 
some form. Perhaps the best use for 


by Jin Pitts 


ib 


ir user now posseses a 2050 modem af 
these devices is trading programs 


over the phone lines. For TS1000 and ZX81 users only one commercial 
program has been available ( Mini Xmod 1.7 ) to accomplish this. Mini 


Xmod 1.7 has been rated by several 

use. It also comes with a pretty he 
to fill the gap between bulletin bo 
the need for a simple program to al 
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ard oriented terminal programs and 
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in ZXSWAP for typing from your 


keyboard to a remote terminal. Other programs fill that need quite 


adequately. ZXSWAP is ,however , so 


easy to use that you may find it 


hard to believe that it actually works! 


First ZXSWAP is loaded into your machine ( 16k or more ram attached). 
If you are uploading a program to another user press L at the menu and 
a loading pattern will appear. Now load the program that you intend to 
upload from tape. When the load is complete the menu will return to 
your screen. Call your friend and have them load their copy of ZXSWAP. 


When the downloading user is ready, 


simply set down the phone and 


‘press U for upload. The downloader will press D. ZXSWAP will then take 
control and the transfer will be made. When the transfer is complete 
the modem LEDs will go out and a checksum will appear on each screen. 
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presses § and saves his new program 
possible key presses ( U,D,L,and § 
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May 2,1987. A special Computerfest 
order the program directly from the 
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